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I. INTRODUCTION 
A. BACKGROUND 


The US Naval Postgraduate School (NPS) in Monterey is an institu- 
tion dedicated to the postgraduate education of Naval Officers and 
Officers of the other services as well as officers from allied countries. 
The purpose of this thesis is to develop a method to schedule the 
academic courses and final examinations of an academic period of this 
school. 

Most students are assigned to this school in order to achieve a 
Master's Degree in one of the offered curricular programs. As all the 
students receive their full salary and no fees are paid, the student is 
expected to devote his entire time to the achievement of this goal. 

The special situation of school and students leads to a fairly 
special academic cycle: Between 1500 and 2000 students study four 
quarters a year. A quarter consists of eleven weeks of academic work 
and one week of final examinations. There is a two week break in 
summer and over Christmas and New Year. 

During a particular quarter, there are about 300 courses taught 
and there are between 800 and 1000 distinct parallel sequences to be 
scheduled. 

АП sorts of other constraints in addition to the many different 
sequences and the short time span of 12 weeks, makes the scheduling 
process difficult. Although parts of the scheduling process are 
computer-aided, and despite earlier attempts to computerize it 


completely, the schedule is currently manually produced. 
B. PROBLEM AND MOTIVATION 


Every quarter NPS faces the problem of creating the normal 
academic schedule and the final examination schedule. The normal 


academic schedule can be stated: 
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Schedule all required courses 


subject to the constraints: 

- Every student must be able to attend all courses of his/her 
approved sequence. 

- Assigned rooms must be of the right size, suitable for the course 
purpose and in a designated area of the NPS campus. 

- The faculty member who is assigned to teach the particular course 
must be available at the period. 

- Every course must be scheduled with as many periods per week 
as indicated in the NPS catalog and must be scheduled with the 
appropriate number of periods per teaching block. 

- A variety of other constraints imposed by the administration and 
the faculty must be observed. 

The objective and the constraints for the final examination schedule 


аке; 


Schedule examinations for all courses within four consecutive days of 


one week 


subject to the constraints: 

- All courses have a two hour block of examination time. 

- All segments of one course must have the exam during the same 

period. 

- There are at most two exams for each student per day. 

- The assigned rooms must be large enough for the number of 

students taking the exam in that room. 

- A course may have more than one room for the exam but all rooms 

must be on the same floor of one building. 

- Other constraints imposed by the teaching faculty member. 

On a year-round basis, one full-time scheduler is working on the 
building of those two schedules. During the actual scheduling time, 
between the sixth and eleventh week of each quarter, the work is done 
by two persons. All updating of files in the registrar's office is 
stopped during this period to ensure undisturbed building of the 


schedules. 
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The manual scheduling of a complex system like this involves a 
long training of the scheduler to be able to produce acceptable results. 
A detailed knowledge of the operations of the school and its depart- 
ments is also essential. ‘This same person has to sort thousands of data 
cards over and over again during the scheduling process, fill in 
assigned hours and room numbers and erase data in the trial and error 
process of manual scheduling. 

These two factors, the standstill in the registrar operation and the 
extremely high percentage of manual work during the actual scheduling, 
leads to the idea of computerizing the scheduling process and thus 


decreasing the necessary time and amount of manual work. 
C. THE APPROACH TO THE PROBLEM 


Two approaches to solving the scheduling problem seem possible: a 
mathematical programming approach or a heuristic solution technique. To 
determine which approach to take, previous experience with the matter 


and reported results from the open literature were considered. 


ТЕ Previous Experience 


There were earlier attempts at NPS to computerize the sched- 
uling process. In 1966 HAMS [Ref. 1], the Heuristic Academic Master 
Scheduler was created at NPS. It was written in the assembly language 
SCRAP and ran on the school's IBM 1604. HAMS tried to imitate the 
manual scheduling work and produced results comparable to those of the 
human scheduler during trial runs. 

There were several reasons why this project was abandoned 
and why this thesis does not continue where HAMS stopped: 

- The HAMS system was unable to schedule about 5% to 10% of all 
courses. It turned out, that after a HAMS scheduling run, 
courses were scheduled such that there was hardly a period or 
room left for the scheduling of the remaining courses. Due to 
the algorithm used, it was impossible to schedule the remaining 
courses without changing the whole schedule. Therefore, the 
system was potentially useless and the system was never used by 


the scheduler. 
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- The mainframe has been replaced twice since HAMS was 
programmed and the old programs are difficult to interpret. 
- A major portion of the old system (assigning flight schedules to 
aviator students) is no longer relevant. 
There are no further known attempts to computerize the 


scheduling process at NPS. 
2. Literature 


Since the late 1950s and peaking in the 1960s, the problem of 
timetabling an expression widely use for course scheduling, has been 
appearing in the literature. Due to its complexity and large size 
interest in the problem has increased with more common availability of 
computers with large memories in recent years. 

The work done on timetabling can be subdivided into two 
categories, as Tripathy [Ref. 2] does: School timetabling problems and 
College/University timetabling. School timetabling in this sense is 
considered to be harder problem than college/university timetabling due 
to the fact that conflicts, resulting from interactions between depart- 


ments are less likely in the latter. 
a. School Timetabling 


A technical history by Dempster, Lethbridge and Ulph, 
[Ref. 3], tracks the evolution of computer timetabling in the United 
Kingdom through 1975 and shows the typical dimensions of actual school 
timetabling systems. All the early systems were designed to aid the 
actual construction of the timetable after basic requirements (curricula) 
were set by the school staff. Dempster et al mention one major factor 
affecting timetabling and its ability to achieve satisfactory schedules: 
Besides explicit requirements (constraints) there exists a large number 
of implicit ones. These are only known vaguely and appear in real time 
during the scheduling process. The human scheduler, a senior staff 
member in these school systems, decides all these upcoming questions 
on his/her own out of his/her experience and knowledge of the internal 


workings of the school. Dempster et al stress the fact that it is 
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impossible to specify the requirements completely and that systems 
should therefore allow the scheduler to interact closely with the 
computer in timetable construction. 

After listing the requirements a computer timetabling 
system should be able to handle, Dempster et al look at three genera- 
tions of actual systems. The first generation of systems in the early 
1960s was based on heuristics only and solved small sized problems, 
e.g. the Teddington System: 35 periods, 26 classes, 90 min CPU time. 
The systems of this generation were: 

- Teddington System 

- Ontario School Scheduling Programme 

- New Castle System 
The length of time needed to solve even an unrealistically small problem 
was the reason that these systems never left experimental stages. 

Second generation systems produced for the first time 
reasonable results using the ideas of their unsuccessful predecessors. 
Similar, but improved heuristics were used and the systems were run 
on more sophisticated computers. Systems of this generation were used 
in real applications in schools in Great Britain. Second generation 
systems are: | 

- Birmingham System 
- Nor-Data System 

- New Zealand System 
- Price-Waterhouse 

- Scicon System 

Third generation/systems differ in the fact that they 
start earlier in the school scheduling process. During the curriculum 
planning phase, an outline timetable was produced by the Strathclyde 
System. Outgoing from this, the actual timetable was constructed later. 
For the first part, integer linear programming was used. Besides 
sometimes unacceptably long run times, solutions could not always be 
produced due to infeasibilities in the large constraint set. 

The Oxford System, the other third generation system, is 


the first system where an interactive approach is tried. The system 
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starts by- using a feasible start timetable, usually parts of a previous 
scheduling period's timetable. Feasiblity is required only for certain 
major requirements. Dempster et al mention that one package was oper- 
ational and that yet another one was still in development. The later one 
was said to use interactive refinement. 

Dowsland and Lim [Ref. 4], mention that the Oxford 
System is operational but that none of the existing systems produces 
100$ complete results. A comparison of the Nor-Data System, the New 
Zealand System and the Oxford System concludes that the Nor-Data 


System gave the best results. 
b.  College/University Timetabling 


Tripathy [Ref. 2] and [Ref. 5] describes 
College/University timetabling problems. The problem is defined as the 
scheduling of 900 subjects over a year. Students are enrolled in 295 
specializations. Students from 4 to 6 different streams study particular 
subjects together. The academic year has three terms. Separate time 
tables for each term are constructed, where a term time table has about 
400 to 450 subjects. A week consists of 30 periods. 

To be able to solve the problem as an integer linear 
program (ILP), the number of variables and constraints is reduced by 


grouping of students into student groups and subjects into subject 


groups. 
The problem formulation is divided into three stages: 
i) Determine the group of students which is to attend a partic- 
ular subject, 
ii) Specify the facility required by the subject, 
111) Determine when each subject is to be taken. 


In Tripathy's approach, (i) and (ii) are done manually. 
Stage (iii) is formulated as an ILP. The objective function maximizes the 
desirability of the assignment of subject group i to period j. 

The constraints take care of the total number of periods 
per subject per week, the availability of rooms out of a set of room 
groups and the fact that a student can only attend one subject group 


during one period. 
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A lagrangian relaxation method is used as a solution 
technique. Computational results are reported for the described case 
with 33 student groups, 84 subject groups and 5 room groups, where 
single and double period classes were scheduled. 

Another author concerned with university timetabling is 
Selim, with an article about university faculty timetabling [Ref. 6] and 
course and lecture timetables [Ref. 7]. Both systems are based on 
heuristic solution techniques close to those of Almond [Ref. 8] but fail 
to schedule about 15% of all courses and do not consider room 


assignments. 
C. Examination Timetable 


There is some literature about examination timetabling in 
general and also about final examination timetabling. Romero [Ref. 9] 
describes a system which schedules examinations and assigns rooms with 
interaction to "highlight and clarify references in making decisions and 


' All exams have to be 


constraints imposed by previous decisions. ' 
written within a time frame, each course offers up to three possible 
examination periods, some specific class rooms are needed, and different 
exams for one student should be separated by some minimum period of 
time. There is some course interaction, but the main student body is 
enrolled in noninteracting courses. A heuristic algorithm assigns rooms 
and dates. In case of difficulties, a human decision maker has to give 
inputs. 

In contrast to the very simple system described above, 
Mehta [Ref. 10] reports on a more complex procedure using a vertex 
coloring method for building final examination schedules. The problem is 
to schedule final examinations over a short time period, subject to the 
constraint that some exams cannot take place during the same time and 
that all the courses taken by a student need to be scheduled at 
different times. 

A network is created where nodes represent courses and 
arcs between nodes represent a conflict between two courses. Then, a 


graph coloring method is used to find the minimum number of 
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independent course sets. Room problems were incorporated into the 
network. After deriving an acceptable schedule by this method, an 
adjustment phase is entered where time-frames are selected for exams of 


the same color. This is manually done by the registrar. 
3. Comparison to the Scheduling Problem at NPS 


The kind of problem a school timetabling system solves has 
only slight similarities with the problem at NPS. Schools face problems 
with a large number of students of the same grade to be distributed 
evenly among parallel classes. Once this problem is solved, a switching 
of some students from one class to another among the same grade is not 
very common and switching between grades practically nonexistent. 
Thus, a schedule can first be constructed and then students can be 
distributed according to the schedule. It is also possible to take the 
schedule of a previous year and transform it into a new feasible 
schedule. All this is not the case at NPS. The reported results of 
less than 100$ success for all described systems are another reason not 
to consider such a system for use at NPS. A major factor for the 
acceptance of a scheduling system is its reliability and accuracy. 
Experience indicates that partial, infeasible schedules are of little prac- 
tical value; the problem of scheduling the then remaining conflicting 
courses manually is, in most cases, as hard and time-consuming as the 
original problem itself. 

The  College/University  timetabling problem described and 
solved by Tripathy seems to have enough similarities with the problem 
faced by NPS to be considered as a possible candidate. When comparing 
the particular data though, some differences emerge: 

The definition of a student group is close to sections in the 
NPS system, but 33 student groups are one order of magnitude less 
than the number of sections at NPS. Tripathy defines a room group as 
the set of rooms of similar size and use. For the lecture rooms at NPS 
it would also be possible to form about 5 such groups. In addition to 
these five groups there are about 20 single use rooms where each 


builds a group by itself. These are lab rooms, terminal rooms, vault 
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rooms and rooms equiped with special features. Still another problem 
would cause a subdivision of the five lecture room groups: It is policy 
at NPS to schedule courses not anywhere on campus but in designated 
areas, depending on the department offering the course. All this leads 
to about 40 room groups. 

Given that the number of subject groups are of the same size 
in both systems and that all the other constraints could be combined 
into the penalty cost of the objective function, the increase in room 
groups and student groups would increase the number of variables of 
a ILP formulation to a impractical number, on the order of 107. An ILP 
to the single course problem, however, can be formulated and is found 
in Chapter V.B.5 of this thesis. 

Given the drawbacks of the optimization systems described 
above, a heuristic scheme for scheduling seems more appropriate. This 
system would include interactive features to combine the human schedu- 
ler's knowledge of the school system with the speed and accuracy of a 
computer. A decision was made to built a heuristic scheduling system 
with the goal to achieve feasible solutions and to be able to handle the 
special problems at NPS. 

For the examination schedule, Mehta seems to present a suit- 
able way to solve parts of the problem. The situation at NPS, however, 
is much more constrained. A schedule with more than two exams for one 
student on any particular day is already infeasible; rooms are a scarce 
resource; and the overall time frame of four days is not negotiable. 
Therefore, for this problem too, none of the existing algorithms are 
appropriate. An alternate heuristic method is devised to incorporate all 


the specific problems existing at NPS. 
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II. PROBLEM DESCRIPTION 


To design a scheduling system which will be accepted by the user, 
it is necessary to achieve results qualitatively comparable or better than 
those currently possible. As the scheduling of the courses is imbedded 
into the much wider field of academic administration at NPS, the new 
system must have interfaces to existing operations. The change to the 
new system must be possible without disturbing or stopping the admin- 
istrative process. Furthermore, the interaction between the human 
scheduler and the computerized system is a way of fitting the system to 
the continuous changes within the operations at NPS. АП these 
requirements make it necessary to keep as much as possible of the 
current operation unchanged. Detailed knowledge of the current 
system, its terminology, data flow and data structures and the way the 


schedule is created currently is therefore essential. 
A. PROBLEM DEFINITIONS 
1. Horizon 


For each quarter, a separate schedule is to be constructed. 
During the first eleven weeks, the schedule is the same every week. 
The last (twelfth) week is dedicated to final examinations only. 


Hence, there are two schedules to be constructed for a particular 


quarter: 
i) ‘The academic schedule; frame one week, Monday through 
Friday 
ii) The final examination schedule; frame four days, Monday 
through Thursday 
2. Lecture and Laboratory Hours 


One teaching or examination unit has a duration of 50 minutes 
followed by a ten minute break. There are nine such units in every 


working day. The majority of all courses are taught one hour per day 
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although there are other blocks consisting of two or three hours in a 


row, especially for laboratory-type courses ("labs"). 


3. Academic Department 


The teaching function is performed by the faculty members of 
eleven academic departments and three interdisciplinary groups, in 


short, called "departments." 
4. Faculty 


The teaching is done by civilian and military faculty members 
of the Naval Postgraduate School; few courses are taught by guest 
professors. The assignment of a faculty member to a course and 
segment occurs within the departments. A load of two to three 
segments is average for those quarters when a faculty member is 
assigned to teach. Faculty members are involved in research projects, 
advising of master's or doctoral students and work in other sponsored 
areas. A number of constraints within the scheduling process are 


imposed by these additional activities. 
5: Curricular Office 


Students аге grouped into different curricula groups. 


Students in one group pursue similar or closely related curricula. 
6. Course 


Courses offered by the departments are taught between 2 and 
6 hours per week and consist of lecture and/or lab parts depending on 
the current course catalog [Ref. 11]. “he number of lecture and lab 
hours per week are defined in this catalog. Some of the courses do not 


need schedules or class rooms. 
pe Segment 


Depending on the number of students enrolled in one partic- 
ular course, it can be decided to split the course into, usually, two to 
four "segments." These may be taught by one or more faculty 


members. 
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The building of segments sometimes occurs only for the 
lecture or lab part of a course whereas the other part is taught as a 
whole. The department decides on the number of segments per course 


and the faculty member teaching a particular segment. 
8. Section 


АП students to be scheduled for the same sequence of courses 
in a particular quarter are grouped together into a "section." In 
almost all cases this will be the smallest unit to be scheduled individu- 


ally. 
9. Student 


Students are grouped into the same section if and only if they 
have the same sequence of courses in a quarter. There are required 
and elective courses. Guided by the curricular offices and sponsors, 
constrained by the offered courses and degree requirements, the 
student is free to choose among a certain subset of courses. A load of 


three to six courses is normal with four courses being the average. 
10. Room 


Rooms for teaching of lecture and lab courses are in six 
buildings on campus. A total of 110 rooms with capacities from 10 to 80 
people are available. Courses offered by a particular department are 
usually taught within a specified area of the campus. Vault rooms, 
rooms with computer terminals and specially equiped lab rooms are 


specifically requested by the teaching faculty member. 
11. Meetings, Guest Lectures, Seminars and Refresher Courses 


There are regularly scheduled meetings within the depart- 
ments, seminars for groups of students of certain curricula and guest 
lectures for the whole student body or some subsets. Times, duration 
and attending members are provided ahead of the scheduling period. 
Refresher courses for new students are taught every quarter from week 


seven through week twelve without scheduled final exams. 
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В. CONSTRAINTS 


The difficulty of scheduling final examinations and normal academic 
courses originates from many constraining factors. Some of the 
constraints are official policy; others are dictated by practical consider- 
ations and are not explicit in official policy. The latter have to be 
analyzed more intensivly and defined before a heuristic can be 


designed. This section describes the scheduling constraints. 
1. Final Examination Schedule 


The basic unit for a final exam is two contiguous hours. 
There are at most two exams for every section to be scheduled on any 
particular day of the final examination week. 

a) In order to provide enough space for every student, a factor of 
1.5 times the size of a segment is a guideline for selecting 
rooms. In order to reach this goal, the segments may be 
scheduled into more than one room on the same floor of one 
building.Several segments of one course taught by one faculty 
member may be scheduled in one room. All segments of a course 
must have the ER at the same time. | 

b) There are final exams in every course with a lecture part and 
no final exams for lab-only courses. This may be changed by 
the teaching faculty member. 

c) All lecture rooms are available for exams during the final exami- 
nation week, except rooms occupied by refresher courses. 

d) There are preferred areas for rooms to be used for exams as 
can be seen in Table 1. 

e) Every quarter there are some requests for early final examina- 


tions. They are scheduled during the first day if possible. 
2. | Academic Schedule 
a. The standard setting 


Without requests of any kind, the standard setting for an 


academic schedule is described as follows: 
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ТАВГЕ 1 
COURSES AND THEIR PREFERRED ROOMS ON CAMPUS 


Course Indicator Building l Floor 
AE, ME Halligan 
AS, CO, CM, IS, MN Ingersol 


EE _ Bullard 
Spannagel 


GH 224 


CS, Spannagel 


Ingersol 


Ingersol 
Root 


Root 
Root 
Spannagel 





i) Every section is scheduled in such a manner that all courses 
requested by a student can be taken. If no feasible 
schedule results out of this restriction, unusual sequences 
are sorted out and restructured by the curricular office and 


the students of the section. 


ii) No more than one hour per course per day. 
jii) The section is scheduled in a room as small as possible. 
iv) Courses are scheduled in prefered areas, the same as with 


scheduling of final exams (Table 1). 

у) There will be no scheduled course hours during regularly 
scheduled guest lectures, seminars etc. for the student or 
faculty members involved. 

vi) There will be a lunch hour for every student or faculty 
member in the time period between 11 A.M. and 2 P.M. 

vii) One segment per course is assumed if not indicated 


otherwise. 
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р: 


as follows: 
i) 


ii) 


iii) 


іу) 


v) 


vi) 


vii) 


viii) 


yx) 


X) 


х1) 


Xii) 


xiii) 


Frequent requests constraining the scheduling process 


The most frequent constraints occuring every quarter are 


The course must be divided into segments. 

Particular rooms are needed. The reason can be the need for 
lab equipment, higher than normal security, computer termi- 
nals, special teaching aids, etc. 

There are courses which need no class room 

The course/segment is taught in other than one-hour blocks. 
Two or three hour blocks are frequent requests. 

A particular group of sections must be in one segment. 

The faculty member prefers to have or must have particular 
hours of the day or days of the week for the teaching of the 
segment. 

Faculty members like to have an hour between two teaching 
sessions. 

Faculty members participate in a course as students. 

Some courses are taught in a team of two or more faculty 
members. 

There are actually more or less hours taught than in the 
current NPS catalog indicated. 

A segment of a course with lecture and lab parts is subdi- 
vided for the lab part. 

There are accelerated and refresher courses which are 
taught during the first or last 6 weeks of the quarter only. 
No final examination is scheduled for those courses. 

Some courses are taught together during the same period in 


the same room. 


C. COLLECTION OF THE CONSTRAINT DATA 


Some of the data needed for the scheduling process are provided 


in the form of computer files; not so the changing set of constraints. 


The current method of collecting the constraints is described and a 


faster computerized system is proposed in this section. 
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1. The Current System 


The current method of collecting all the data about constraints 
is to write them on the pages of the department list printout. One of 
the existing computerized data files is the department list. | 

This list contains data about the courses: course number, 
participating sections,number of hours for lecture and lab per week and 
number of students,sorted by department. The inputs for the list are 
provided by the different curricula offices and departments. 

The list is handed to the scheduler at the beginning of the 
scheduling phase. [ШООГО to collect the remaining data, the scheduler 
distributes the relevant parts of the list to the respective departments. 

At the department level, all the constraints, as well as the 
teaching faculty member and the number of segments for each course 
are handwritten on the computer printout of the department list. There 
is no common form of providing the constraints. This leads to different 
degrees of detail and leaves much detail to the memory and knowledge 
of the scheduler. The process of distributing the department list to 
the departments and sending them back takes about three days. 

The transformation of the constraint data from the handwritten 
form to a acceptable form for computational use takes about 30 man 
hours and the quality depends very much on a very good under- 


standing of the scheduling process. 
2. An Automated System 


The analysis of previous department list described above 
resulted in a list of common constraints which is laid out in the form of 
a computer questionnaire. The questionnaire is written in FOCUS, a 
information control system in use by the registrar data management 
group. The program has been implemented and is easy to use by mini- 
mally trained personnel. The main advantage of this kind of question- 
naire is the discretizing of the different constraints leading to a 
uniformity of answers which is necessary for computer use. 

The data on the constraints for one quarter were typed in, 


by use of the program; one record for each faculty member and 


2 


segment. Among all input, only 15% of all records had constraints that 
did not fit one of the provided questions. For these cases, three 
lines for comments were provided. These "comment constraints" were 
very unusual requests, each by only one or two faculty members which 
most probably will not reoccur in the same form again. 

The output file of this FOCUS program was used as input into 
the scheduling program. 

To make the scheduling process faster, the constraint data 
should be provided via this or a similar program directly by the 
producers of the constraints, the departments. The different 
department-constraint files could then be easily connected. In addition 
to savings in time, a reduction in errors would be another advantage of 
this approach. 

Appendix E through H provide a copy of the questionnaire 
screen, the FOCUS program listings, a small user's manual for the 


proposed method of usage and the MASTER file. 
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III. COURSE AND SECTION INTERACTION 


Every quarter, about 1700 students choose three to six courses 
from among the 250 to 300 courses offered. The relative freedom in the 
selection of courses leads to more than 800 sections, a_ section-to- 
student ratio of about 1.8 to 1. Define a connection between two 
courses to exist if and only if there is at least one section taking both 
courses. An analysis of the set of courses with respect to the degree of 


connections among them is contents of this chapter. 
A. SUBSETS OF THE COURSE-SECTION SET 


The question arises whether all the courses are connected to each 
other, at least indirectly, as the high section-to-course ratio suggests. 
As students belong to different curricula, it might be possible to break 
up the set of courses into noninteracting subsets. The solution to this 
question has a great impact on the difficulty of the scheduling problem. 
If noninteracting subsets can be found, a solution technique would be 
possible where each subset is scheduled by itself. In the extreme case 
of many subsets of comparable size, the individual problems would be 
small enough to find an optimal solution with respect to an as yet to be 
determined measure of effectiveness. The other extreme of one big 
connected set implies that mathematical programming techniques will not 
be practical due to the size of the resulting problem. The number of 
feasible solutions, if any, is likely to be much smaller in this second 
case. 

lo find independent subsets an undirected network is set up 
where nodes correspond to courses and arcs to connections. Тһе 
courses, originally named by two letters, followed by a four digit 
number, are renumbered with consecutive integers, starting from 1, 
according to their place in the lexicographically ordered set of courses. 
A graphical representation of a small part of the network is shown by 


Figure 3.1. 


29 





Figure 3.1 Network Representation of the Course/Section Set. 


The task then is to find nodes like 1 and 19, which are connected 


with each other but which have no connection to the set {120, 220, 257} 


and thus form an independent set. 


To find a solution, a breadth-first search routine can be employed: 
I. 
2 


Arbitrarily choose node i as starting node. 

Find a path from the distinct node i to every other node j of 
the network. All connected nodes to node i, together with 
node i, form a partition of the network and thus create an 
independent subset. 

Among the nodes not yet a member of one of the subsets 
formed by step 2 choose a new start node i and go to step 2. 
Stop when all nodes belong to an independent subset or when 


only one node is left, forming a subset by itself. 
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Results using actual data from the third quarter 1985 showed that all 
courses were connected, except for courses not really belonging to the 
masters program like refresher and language courses. Hence, the 
scheduling process can not be broken up into independent pieces. This 
reinforces the validity of the decision to use a heuristic solution tech- 


nique to find a feasible schedule. 
B. SAME - HOUR INTERACTION 


To be able to build a schedule, one has to find all the courses 
which can be scheduled at the same time without interference. Figure 
3.1 shows that either course 1 or course 19 can be scheduled at the 
same time with any other course of the set but not both since there is 
at least one section attending both courses. 

To find a lower bound on hours per day necessary to schedule all 
courses, the set of all courses is searched for 'same-hour! subsets: 

Е. Set up the same network as described in the previous section. 


Arbitrarily pick node i to start. Set j, the same-hour subset 


torr. 
D. Inactivate all nodes which are directly connected to the distinct 
node i. Node i is a member of the j-th same-hour subset. 


Eliminate node i from the set of nodes. 
3. Take the next node i not yet inactivated, if there is one, and 
perform step 2. 
4. If there were two or more nodes inactivated start the procedure 
again: activate all inactivated nodes; j-j*1; arbitrarily pick 
node i to start go to step 2. 
о. If there is only one node left, it is the only member of subset 
j'j*l;stop. If no inactivated node exists, stop. 
6. The minimal number of same-hour subsets is j, given the arbi- 
trary choice of starting nodes. 
This lower bound obtained is only an approximation because it depends 
on the choice of starting nodes. Figure 3.1, subset {120,220,257}, 
demonstrates this: If course 120 is scheduled at one hour neither 220 


nor 25/ can be scheduled at the same time. If one starts out by 
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scheduling course 220 first, course 257 can also be scheduled as there 
is direct connection between 220 and 257. 

Depending on the ordering of the initial set, seven to nine subsets 
were found using the same data as before. The number of members of 
each set varied between 80 and 1. This result indicates, that a 
minimum of seven periods is necessary to schedule the courses using a 
relaxation of the actual problem with the only constraint that it must be 


possible for all students to attend all courses of their choice. 
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IV. SCHEDULING FINAL EXAMINATIONS 


The problem of building a schedule for final examinations is solved 
here using a heuristic technique. The final examination problem has 
many fewer constraining factors than the academic course scheduling 
problem, and therefore infeasibilities or unexpected difficulties are not 
as likely to occur. Thus, the goal is to design a heuristic which is 
capable of producing a schedule with as little human intervention as 


possible. 
A. THE PROBLEM 


The final examination scheduling problem may be stated as 
schedule all final exams 


subject to the constraints: 

- The finals are written within four consecutive days of one week. 

- Ali courses must have a two hour block of examination time. 

- Al segments of one course must have the exam during the same 
period. 

- Every student must have enough space to spread out (at least 1.5 
places per student). 

- There are at most two exams for each student per day. 

- The same section must not have two exams back-to-back. 

- Faculty members assigned to teach a segment can only be sched- 
uled once per period. 

- A course may have more than one room for the exam but all rooms 
for one segment must be on the same floor of one building. 

- On request, particular final exams must be on the first day of 
the finals week. 

- On request, particular courses will have no final exam. 

- Rooms should be in designated areas of the campus, according to 
Table 1. 
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В. ТНЕ АРРКОАСН 
1. Definitions and Notations 


In this section variables are defined and notation is introduced which is 


used throughout this chapter. A summary is provided in Table 2. 
a. Courses 


A course is identified by the course number 1, 
і-1,2,...,І, representing the place of the course within the lexico- 
graphically ordered set of course names. The number of courses is I. 


Define the course indicator matrix C to be an I by I 0/1 matrix. Rows 


and columns of this matrix represent course numbers. C = { Y ) 

where e; 7 1 if course i and course j # i have at least one section in 
° = i 24- . ! j li 

common; сі O otherwise. С, { Сүр > C70 9 ees Ca] ) is the "course 


indicator" for course i. The number of students in course i is m;. 


Б. Periods 


There are k periods per day, k=1,2,3, where final exams 
are scheduled. Period 1 and 3 are the two main scheduling periods! 
representing the time period 8AM-10AM and 2PM-4PM. Тһе third 
period, k=2, is an artifice used to hold courses which would be sched- 
uled at one of the other two periods but a room could not be found or 
the teaching faculty member is already busy. 


By using three periods per day, a total of 12 periods 


b=1,2,...,12, are available throughout the final week for scheduling. 
For each of the 12 periods define a "period indicator" 
РЕ = { Ppl ; Pp? pa oe Ppl } as 0/1 vector such that Pbi - 1 1Ё 


course i is scheduled at period b and pp; = O otherwise. 


lscheduling two periods during one day ensures that each section 
has at most two final exams per day. 
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TABLE 2 
NOTATION SUMMARY FOR THE FINAL SCHEDULE 


Subscripts 

Course number П УЕ 

Faculty member о 16 

Room number r r=l 2 5 КИТА 

Day L, L=1,2,3,4 

Period in a day k, k=1,2,3 

All periods БОБ 07. 12 
where b=(1-1)3+k 

Variables Description 


Course indicator for i. Ci = С | Жей } 


Коса сагот Го БЕР 1 Poi: рр! 
Faculty indicator for f at period b 

Set of faculty members f teaching i. F; = ( f ) 
Faculty time table. FS», = i if scheduled 

Room indicator for room r at period b 

Room size of room r 

Set of rooms r possible for course i. R; - то 
Room time table. RS p = i if scheduled 


Number of students in course i 


Indicator variable = 1 if scheduled. 





e Faculty 


lhe set of faculty members teaching course i is 
b - ( еС1) бт) ) where ne (2,3,4) consists of one to four different 
faculty members f out of f-1,2,...,676 members. The faculty indicator 
КОО I if faculty member f is scheduled at period b; otherwise 
Y eg - 0. If there are n elements in p the course consists of n 


segments requiring at least n rooms for the final. The faculty 


35 


schedule FS», = i if faculty f is scheduled at period b for course i; 
FSeu - O otherwise. 


d. Room 


The room numbers are indicated by r, r-1,2,..., RMAX. 
Define the room indicator x,, = 1 if room r is scheduled at period b, 
otherwise x,, = 0. The size of room r is S,; representing the number 
of seats. S min and S,,4,, аге the lower and upper bound on the 
number of students room r should hold during finals. The set of rooms 
situated in the designated area for course i denotes R5. The room 
schedule RS pb = i if room r is scheduled at time b with course i; 


RS pp = O otherwise. 
e. General 


A "blocked" course is a course which can not be sched- 
uled because already scheduled courses do not permit scheduling. "Not 
scheduled" courses have not yet been scheduled. "Unscheduled" 
courses have already been scheduled but were taken out of the 


schedule in order to permit the blocked course to enter the schedule. 
2. The Basic Heuristic 


The basic steps of the examination scheduling heuristic are: 
INPUT: Data on rooms, faculty and enrollment. 
OUTPUT: Room schedule, faculty schedule. 
I) Set N = O (Number of scheduling tries) 
NMAX1 (Maximum number of complete scheduling tries) 
NMAX2 (Maximum number of rescheduling tries) 
LBLOCK (Limit on number of blocked course for complete 
retry) 
II) Schedule final exams which have to be on the first day. 
III) Try to schedule all other courses in listed order 
(main scheduling heuristic); 
N =N + 1. 
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IV) 
p If (number of blocked courses > LBLOCK) AND (N < 
NMAX1) then 
reorder the input list such that blocked courses 
are on top of the list. 
unschedule all courses. 
go to step II). 
2. Else, if (number of blocked courses > LBLOCK) AND 
(М > NMAX1) then 
enter interactive part (the human scheduler decides 
on the next course of action). 
Эя Else, if (number of blocked courses < LBLOCK) then, 


N = 0. 
V) While N < NMAX2 
1. For all blocked courses i 


try to reschedule courses which blocked course 1. 
if successful then schedule course i. 

End. 

N =N * 1l. 

25 If all courses are scheduled then go to step VI). 

Else, if М > NMAX2 then enter interactive part of 

heuristic. 

Else, if N < NMAX2 then change parameters for sched- 

uling. 

End While. 
VI) Print schedule and stop. 


3. The Main Scheduling Heuristic 


This section describes the main scheduling heuristic which is 


used to schedule all listed courses. For all courses i, the input list 
contains: 

C; , the course indicator; 

Гү, the set of teaching faculty members; 

m; , number of students in course. 


Sm 


The assignment of suitable rooms, also an integral part of the heuristic, 


is described separately to enhance the transparency of the heuristic. 
Main Scheduling Heuristic 


(1) pp;70 for all b,i. 
(2) For L=1,2,3,4 (all days) 


(3) For k-1,3 (period 1 and 3 of a day) 
(4) For i=1,2,...,I in listed order (not scheduled courses) 
b = (L-1)3tk. 
(5) For j=1 to I 
if Ры) AND с} 5 1 go to step (16). 

(6) End (j). 
(7) For all faculty fe Fi 
(8) it yp l then begin 

b =- (L-13 
(9) For ve F; (all faculty) 

if y, = 1 then goto step (16). 

(10) End (v). 

go to step (13). 
(11) End (begin). 
(129 Ende). 
(13) Assign suitable rooms to course i: Room heuristic. 
(14) Update begin 


Хер ` 1 for all fe F, 


FSep 5i for all £ € Е; 


DEM 
P((L-1)3*k)i 7 
(15) End (begin). 
(16) End (i). 
(17) End (k). 


(18) End (D): 
Room Assignment Heuristic 
(13.1) Initialize begin 


H = number of different elements in Í. 
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М = м/н. 
r = first element of R;. 
(13.2) End (begin); 
(13.3) For h = 1 to H, while re R, 
Call ROOM (N,r). 
(13.4) End (h). 
(13.5) If yes = O then begin 


(13.6) For r = 1 to RMAX 

113.7) WRS p = i then begin 
ho 0. 
Xp O. 

(13.8) End (begin). 

3.9) End (г). 


go to step (16) (no rooms found). 
(13.10)End (begin) (rooms found). 


(1.1) ROOM (n,r) Recursion. 
Set q = r (new first element of R4). 
Set yes = O (indicates whether room found (1) or not (0)). 
(I.2) While qe R; AND (q same floor as r) 


(I.3) if (Xap = 1) OR (5 стіп > п) then go to step (I.9). 
(1.4) if (Samax <n) then begin 

n= D - (Symin * Spmax) / 2: 

q = q + 1. 
(1.5) if (q same floor as q-1) then call ROOM (n,q). 


else go to step (1.9). 
if (yes = 0) then go to step (I.11). 
q = q-1. 
(I.6) End (begin). 
(1.7) Update begin 
RS ab = i. 
Xqb = 1. 
yes = 1 (Sqmax n < 5 
go to step (I.11). 
(1.8) End (begin). 
ШІ 9) q = qtl. 


qmin ) 
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(1.10) End (while). 
r = q. 
(I.11)End (Recursion). 


ДЕ The Decision Heuristic 


The main scheduling heuristic is imbedded within a decision 
heuristic. Decisions are necessary to determine the course of action to 
take when an attempt to schedule all courses is unsuccessful. 

After an initial attempt to schedule all courses in listed order, 
the number of blocked courses is counted. The idea is to decide 
whether to start the process from the beginning with a different 
ordered input list or to try to schedule blocked courses individually. 
If there are too many courses blocked, relative to the total number of 
courses, a complete retry seems reasonable. If the number of blocked 
courses is above LBLOCK, a limit set for the decision, a retry is 
performed ((IV.1) basic heuristic): 

- Sort input list such that all blocked courses are on top of the 

ordered input list, 

- Initialize all variables, 

- Start again with the main scheduling heuristic. 
Performing retries in this manner may result in cycling, i.e. after two 
or three retries blocked courses from the first try may be again among 
the blocked courses. Therefore, an upper limit on the number of 
retries, NMAX1, is set. If after NMAX1 tries the number of blocked 
courses is still above the limit LBLOCK an interactive decision routine 
is entered ((IV.2) basic heuristic). 

If the number of blocked courses during some try falls below 
LBLOCK ((IV.3) basic heuristic) no complete retry is performed. 
Rather, the heuristic attempts to individually schedule blocked courses, 


step (V) basic heuristic: 
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Schedule blocked courses individually 


For g-1 to G 
For i=1 to I 
For b=1 to 12 
if course i is not yet scheduled then begin 
find number of blocking courses B in period b. 
if B=g then begin 
schedule all blocking courses in period j, j;b. 
End (begin). 
if all blocking courses are rescheduled then begin 
schedule i at b. 
mark i as scheduled. 
End (begin). 
End (begin). 
End (b). 
End (i). 
ШПа (г). 


The procedure is performed with an increasing number of possible 
courses necessary to reschedule. (g) up to a maximum of G which has to 
be determined by trials. The upper bound G will not be very high for 
the probability of rescheduling all courses in an already tight schedule 
decreases rapidly with increasing g. The efficiency of this algorithm 
can be improved by not only rescheduling course j which blocks 
course i but also course h which may block course j. 

If no complete schedule is found by rescheduling individual 
courses, a rescheduling of all scheduled courses is performed: An 
attempt is made to reschedule every already scheduled course i from 
some period b, to period by # b,. After this change of courses within 
the existing partial schedule, the individual scheduling of blocked 
courses is repeated. 

If during the scheduling of individual courses a feasible 


schedule is found the procedure stops; otherwise the interactive 
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decision part is entered: After displaying course name and number of 
students of not yet scheduled courses, three alternatives for further 
action are provided 

- Abort the scheduling attempt without receiving any results. 


- Retry-and-stop relaxes S and 5 for scheduling of 


rmin rmax 
blocked courses. It also eliminates the constraint of designated 
areas while scheduling rooms. It is then tried to schedule blocked 
courses individually. The scheduling process stops, delivering 
room and faculty schedules and a list of blocked courses. 

- Retry starts the scheduling process again providing choices to set 


rmin 224 9ppax: 


ale 
ым 


Lower and upper bound on room size 5 
* Early final exams. 
* The ordering of the input list. This list can be rearranged by 


random shuffling. 
C. PROGRAM AND IMPLEMENTATION 


To decide the question of which programming language to use the 
handling of data files and the capability to utilize logical operators on 
bit strings were important criteria. PL1, Known for its good file 
handling capability also provides the variable type BIT, holding strings 
of up to 256 O/1 variables. PL1 was therefore chosen as programming 
language; the implementation was performed on a IBM 3033 under the 
CMS operating system. 

Two programs were written, one to supply the course indicator 
variables and the other to perform the actual scheduling. Input data 
are supplied by three files; the produced schedules are written into two 
disk files. A third output file is created in the event of an unsuc- 
cessful scheduling attempt. This section describes the data files and 


the two programs. 
J. Data Files 


There are three input files used by the scheduling program, 
PRIOR DATA, FINAL DTHE and ROOM DATA. AIL input files are 


external stream files. The first row of all files will not be read and the 
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end of each file will be detected by raising the end of file condition. 


Descriptions of the files are provided in Tables 3 to 9. 


TABLE 3 
PRIOR DATA (INPUT) 


Variable Type Column Description 


COURSE Fixed (3) 1- 3 Course Number i 
D(1)  Bit(200) 6-205 Bit String Indicator One, C, 
D(2)  Bit(200) 206-405 Bit String Indicator Two, С,2) 


a Fixed(3) 411-413 Number of Students in i, m, 
not read into program 





For the first scheduling attempt, the priority of the courses 
used to schedule is the same as the sequence of occurrence in the file 
PRIOR DATA. Data in this file is resorted for further attempts within 
the program. The user can influence the immediate performance of the 


program by presorting this input file. 


TABLE 4 
ROOM DATA (INPUT) 


Variable Type Column Description 


ROOMN Fixed (5) 1- 5 Room Number Code r 
Digit One: Building Number 


Digit Two-Four: Room Number 
Digit Five: Room Letter 


USE Fixed (2) SNO Code for the Use of the 
oom, i.e. 1 - Lecture Room 


PLACES Fixed (2) 17-18 Maximum Number of Places Эз 
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TABLE 5 
FINAL DTHE (INPUT) 


Variable Type Column Description 


COURSE Fixed (3) 1- 3 Course Number i 
CN Char (6) 9-14 Course Name 
N Fixed (3) 20-22 Number of Students in i, m 


Fixed (1) 35 Condition, Indicating 
Team Teaching(1), or Lab (2) 


CHAR(2) First Faculty Member, 369 € Е, 

CHAR(2) Second Faculty Member, fC?) ç F. 
CHAR(2) Third Faculty Member, t(?) є Е, 
CHAR (2) Fourth Faculty Member, (4) є Е; 
Fixed(1) Final Written (0), not Written (1) 


i 





As output files a room file, DRUCKR DATA and a faculty file, 
DRUCKP DATA were chosen. They provide the necessary information 
for students and faculty members. The implicit assumption is that the 
faculty members teaching different segments of one course decide among 
themselves which rooms of the designated ones will be used by the 
students of their respective segments. 

The key of the faculty file is the mailcode of the faculty 
member which indicates the row. Columns are the different final exami- 
nation periods. If a final is scheduled for a faculty member at one 
period, the course name is entered at the name/period intersection. 

For the room file, the key is the room number indicating the 
row. The columns are also the final periods. Course names are entered 
where courses are scheduled. Examples of the output files DRUCKR 
DATA and DRUCKP DATA are provided in Appendixes B and C. 
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2. Program to Prepare the Input File 


The program PRIOR PLC prepares the input file PRIOR DATA 
for use in the main program FINAL PLC. As input, an ordered list is 
used containing the course name followed by the segment number and 
number of students in the segment. The output file is the file PRIOR 
DATA described in Table 3. 

Up to 6000 entry sets, course name, section name and number 
of students in section stored in the structure MATRIX (*) are read 
from the disk. Courses which need not to be scheduled are sorted out. 
Then, the total number of students in each course TOTAL(K) is calcu- 
lated. The array CN(K) is filed with the course name, corresponding 
to the course number K. TOTAL, CN and K are the entries in the 
output file CROSSL DATA, which is for. software maintenance purposes 
only. 

The array B1(j), j=l to 200, where the only nonzero bit of 
200 is at the jip Place. These entries are used to create the array 

The program runs under batch. The input file is included in 
the job stream of the program by the time of submission. The program 


and a small sample of the input file is attached as Appendix D. 
3. Program to Schedule the Final Examinations 


The PL1 program FINAL PLC, provided as Appendix A, 
consists of a main routine and 19 internal subroutines sorted and 
described in alphabetical order. The program is written in the PL1 
subset PLC, runs under VM/CMS and does not use any external or 
library subroutines. The three input files are read completely into 
memory. File definitions (FILEDEF) are provided in an EXEC file which 
is part of the introductory comment of the program. The following 
sections describe the programs with respect to special features only. 


Bounds and other parameters were found empirically during trial runs. 
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а. The Main Routine 


During the reading of the input file ROOM DATA, only 
rooms suitable for lecture type-teaching are stored into arrays. Rooms 
which can not be used during final examination week are filtered out. 
A way to indicate this externally is to set the USE indicator in the 
ROOM DATA file to a number greater than ten. The files PRIOR DATA 
and FINAL DATA are read without further manipulation. 

The first task in the main routine is to create the array 
B1. It is an array of 200 bit strings filled with 199 zeros and one '1' 
where B1 (1) has the '1' at the most significant bit and B1 (200) the '1' 
at the least significant bit. The elements of this array are used to mark 
scheduled courses. 

After the label TRY, courses which do not have a sched- 
uled final (F1=1) or which are unscheduled (FA(*,1)=0) are eliminated: 
Each bit indicator D(*,*) is set to 'O' at the position of these courses. 
The course number of these courses is set negative to indicate no 
further consideration. 

The variables DOWN, V, V1 and V2 are used to control 
the program. DOWN is set to '3' when all the prefered building 
constraints are to be honored, and'0' otherwise. V indicates the number 
of tries to schedule all the courses, V1 and V2 count subtries within 
each V. 

When first entering the main routine, the subroutine EIN 
is called, which is used to interactively read courses from the screen 
which should be scheduled during the first day of final examinations. 
Then, the subroutine PARTIAL tries to schedule all courses and 
COMPLET checks whether or not all courses are scheduled. If all 
courses are scheduled, the output files are written and the program 
terminates. 

In the case, that there are some courses not scheduled, 
further computation depends on the number RE of not scheduled 
courses. If the number is above 5% of the number of total courses, the 
bounds on the room size (LOW,HIGH) are relaxed and the scheduling of 


all courses is done again. The difference to the scheduling run before 
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is that after scheduling early finals, blocked courses are scheduled 
first. This sequence is performed up to 5 times (counted by V1). If the 
number of not scheduled courses is still about 5% the interactive part of 
the main routine is entered. 

If the number of not scheduled courses falls below the 5% 
level subroutine NEIGH is called. NEIGH tries to rearrange already 
scheduled courses in order to make it possible to schedule the 
remaining courses. This is done up to five times (counted by V2) where 
the number of courses being rescheduled grows from try to try After 
every try, COMPLET is called to check whether all courses are sched- 
uled. 

After trying to schedule all courses with NEIGH unsuc- 
cessfully, a last attempt is made by calling AGAIN. There, all already 
scheduled courses are rescheduled one by one, if possible, in a 'whole- 
sale' fashion. After that, NEIGH is called once more. If there are still 
some courses blocked the interactive part INTER is entered. 

In the interactive part, all not scheduled courses are 
written to the screen along with the number of students in the course. 
For scheduling purposes one can decide between three alternatives: 
ШЕРУ again", "stop and print" and "stop". Stop just terminates the 
program. Print and Stop writes the incomplete schedules along with а 
file of not scheduled courses (FAIL DATA) to the disk and terminates 
after having called NEIGH with further relaxed bounds on the room 
size. | 

The option 'Try again' opens more choices. One can reset 
the early finals and the input file PRIOR can be sorted 'semi-randomly' 
by a call to SWITCH. Depending on the choice, initial conditions are 


reconstructed and the scheduling process starts again at the label TRY. 
b. The Subroutine AGAIN 


A wholesale rescheduling of already scheduled courses is 
performed. For every course with no early final, an attempt is made to 
find a schedule in another period. If it is possible, the old entries in 


the room array TIMER and faculty member array PTIME are canceled. 
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The scheduling is done by the subroutine GUIDE, the canceling of 
TIMER is performed in this subroutine and the canceling of PTIME in 
subroutine LOESCHP. 


C. The Subroutine COMPLET 


The subroutine goes through the array COURSE (*) and 
notes all nonnegative course numbers, corresponding to not scheduled 
courses. The counter RE counts the number of not scheduled courses, 
the flag FLAGCCC indicates when all courses are scheduled and the 
array REST(*) holds the course numbers of the not scheduled courses 


for further use. 
d. The Subroutine EIN 


This subroutine enables interactive entry of courses 
which have to be scheduled early. These courses are stored in the 
array EARL. The subroutine asks for the course name of the course in 
question, tries to schedule it during the three periods of the first day 
and writes the result of the attempted to the screen. The subroutine 
provides for 20 courses, which is a upper limit due to past experience. 
It could easily be extended by changing the outer DO-Loop іне ы 


able I5 holds the actual number of early finals. 
e. The Subroutine GUIDE 


This subroutine regulates the scheduling of one course 
during one period. The hour indicator HB(Period,1) and HB(Period,2), 
each a bit string of 200 bits, have '1' at the place of the course 
number already scheduled at this period. To find out whether the 
course in question can be scheduled at a particular period the course 
indicator D (Course, 1)? and D(Course,2) are logical ORed with HB 
(*,*). If the result is false, there is no conflict with other courses in 


this period. To find out whether the teaching faculty members are idle 


2Тһе course indicator for each course had to be broken up into 
two pieces D(200,2) because of the upper limit on bit strings in 
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and. whether rooms can be found during this period the subroutine 
PROFSUB is called. 

If the courses conflict, a faculty member is not idle or 
rooms cannot be found during this period and the in-between period 
(k=2), the program returns to the calling routine. Otherwise the hour 
indicator HB(*,*) is updated: the B1(*) entry corresponding to the 


course number is logically ORed with HB(*,*). The course number is 


set negative to indicate that the course is already scheduled. 
Ë. The Subroutine DRUCK 


The subroutine is called to write the room and faculty 
schedule into the external files DRUCKR DATA and DRUCKP DATA. 


g. The Subroutine LENKI1 


This subroutine is called on the second and every 
further complete try (V>1). It schedules at the beginning of each try 
the early finals and not scheduled courses of the previous try. The [5 
early finals stored in array EARL are scheduled in the three periods of 
the first day while the RE previously not scheduled cotrses stored in 


REST are tried to be scheduled during all available periods. 
h. The Subroutines LOESCH and LOESCHP 


Both subroutines are used to erase already scheduled 
courses out of the arrays TIMER {LOESCH} and PTIME {LOESCHP} 
during a given period. All entries of the respective array реа searched 
during this period for occurrences of the course. The entries are set to 


zero. 
i. The Subroutine NEIGH and NEIGH1 


The subroutine NEIGH performs the task to schedule a 
not scheduled course, REST(R3), during a period R1 by first resche- 
duling courses which conflict with course REST(R3) and then schedule 
the it. Depending on V2, one to five (RR) courses are tried to resche- 
dule: 
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First, conflicting courses during this period are found 
and stored into the array R4(*). If the number is greater than the 
upper bound V2 during this try the next period is tested. If there are 
no course conflicts (R4(1)=0) a scheduling attempt is made. If RR»0, 
the program checks whether all the teaching faculty members for the 
course in question are idle. In case all faculty members are free, a 
rescheduling of the conflicting courses is attempted during another 
period. 

For every conflicting course all periods are tested. In a 
recursive fashion the subroutine NEIGH1 is called which performs the 
same task as NEIGH for courses to be rescheduled. 

If a course is rescheduled, the old entries are erased in 
TIMER and PTIME by LOESCH and LOESCH1 and the hour indicator 
HB(*,*) is updated. If all conflicting courses are rescheduled, the not 
scheduled course in question is scheduled and all arrays are updated. 


The whole procedure is done for all entries of the array REST. 
j: The Subroutine PARTIAL 


PARTIAL provides the loops to: schedule all courses. It 


calls GUIDE for each period and each not scheduled course. 
k. The Subroutine PROFSUB 


The mailcodes of the at most four teaching faculty 
members of a course are transformed into a corresponding integer. For 
each faculty member, it is checked whether he/she is idle during this 
period by checking the entry of PTIME. 

If all faculty members are idle, the number of segments 
is found: More than one segment is only assumed if there is more than 
one different faculty member and the condition COND does not indicate 
lab or team teaching (EQ>1). 

For each segment an equal share of students is calculated 
(NQ) and for each segment the subroutine ROOMSUB is called. If all 
segments can be scheduled during the same period, entries in the array 


PTIME are made. Otherwise entries in the array TIMER, made in one 
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of the ROOM subroutines, are erased by calling LOESCH and the 


program returns. 
l. The Subroutine SWITCH 


This subroutine uses the PLC function RAND(X) to 
resort the arrays COURSE(*) and D(*,*) pseudorandomly. Arrays 
M1(*) and M2(*,*) are created to hold the above arrays temporarily. 


m. The Subroutine ROOMSUB 


Depending on DOWN this subroutine sets the bounds on 
designated areas for rooms first and then calls ROOMS] if DOWN-1, or 
calls ROOMS1 immediately. For each type of course, the building 
bounds (ROOMP,ROOME) are stored. The decision to use one of the 
sets is based upon the first two letters of the course name. A priority 
among different possible buildings or floors is reached by calling the 
subroutine ROOMS] first with the set of bounds for the highest 
priority. If enough rooms are not found, ROOMS] is called again with 


a new set of bounds, lower in priority. 


n. The Subroutines ROOMS1 to ROOMS4 


These four subroutines perform essentially the same task. 
Looking at each room between the upper and lower building bounds 
(ROOMP,ROOME), they search for an empty room not too big (XHIGH). 
If a room with these specifications is found it is checked whether it is 
too small (<LOW). If it is not to small, the room is scheduled by entry 
into the array TIMER and the program returns;otherwise the next 
higher version number of ROOMS* is called to look for an additional 
room on the same floor holding the rest of the segment. This can be 
done for up to four rooms. 

To avoid unnecessary searching for very small course 
sizes the variable SINGEL declares a fixed upper bound on the room 
size for which a room is declared too big. Thus, a course of four 
students will be scheduled in a room with up to 26 places if SINGEL is 


set to 26. If a room is to big and its size is above SINGEL, it is not 
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considered for this course. The routine looks at the next course. Upper 
and lower bounds (LOW,HIGH) as a factor on course size can be set 


and are changed during the execution of the program. 
o. A Maintenance Toggle 


For maintenance purposes a toggle is built into the 
program to make a run somewhat more transparent and provide for more 
choices. By setting the variable PRFLAG=1 printouts of intermediate 
steps is displayed on the screen. After every try, all not scheduled 
courses are displayed, together with information on which of the 
subroutines was trying to schedule this particular, not yet scheduled 
course. When entering the interactive part answering the question 
'TRY AGAIN????' with "2" branches into a selective scheduling option 


providing even more possibilities for the skilled user. 
4. Computational Results 


All programs and subroutines where tested using real data 
from quarter II/85. A comparison to the manually built schedule of the 
Same quarter however was not performed because no measure of effec- 
tiveness other than feasibility exists. 

‘The preparation of the input data was performed using the 
PLC program PRIOR. The input to this program came from the existing 
manual system: a file of punch cards called "Y-Cards" where each card 
holds the course name, one section enrolled in this course and the 
number of students in this section. The program PRIOR sorts out 
courses which are known to have no final exams that quarter and builds 
the two output files PRIOR DATA and CROSSL DATA, described in 
Chapter IV.C.1. The number of Y-Cards for the test data was 3843 
with 267 courses and 850 sections remaining for scheduling of final 
examinations. The run time for this data set on the IBM 370 batch 
processor was 12 minutes. 

To create the FINAL DTHE file, data from the questionnaire 
file can be used as soon as this system is installed and information is 


updated. For test purposes the file CROSSL DATA was manually edited 
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and brought into the format of the FINAL DTHE file (Table 5). The 
ROOM DATA file was КОО, by using inputs from the scheduler's file 
cards; 61 rooms were available for final examinations. 

The run time of the final examination scheduling program 
FINAL PLC varied between 90 and 120 seconds, including read/write 
operations. The variability is due to the subroutines used by the 
program control. The performance depends on the initial ordering of 
the input file PRIOR DATA. If a run cannot produce a feasible 
schedule, reordering of this file ( by course size, number of sections 
in course or just randomly) tends to give an immediate improved result. 
A schedule with a few courses not scheduled (output to FAIL DATA) 
can usually be converted into a feasible schedule by restarting the 
program and scheduling some of the courses from FAIL DATA as early 
finals. The interactive part of the program provided adequate options 
for the test data to reach a feasible schedule independent of the initial 
ordering of the input data. For the test problem a feasible schedule 
was found; parts of the resulting schedules are attached as Appendixes 
Brand C. 
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V. SCHEDULING ACADEMIC COURSES 


The main scheduling task every quarter is concerned with the 
academic courses. Currently, this is done manually and takes about 
four weeks, the room scheduling included. Additional time is needed to 
prepare the file cards and for the writeup of the master schedule. 
During the scheduling period, the registrar process is stopped with 
respect to updates of sections. This leads to schedules which are not 
up-to-date, contributing to the high amount of changes experienced at 
the beginning of each quarter. 

To decrease the time for building a schedule, an approach is 
described which would computerize the whole scheduling process. 
Results reported in the open literature, previous experience with the 
computerization of the scheduling process at the NPS (Chapter I.C) and 
the analysis of the course-section interaction (Chapter III) lead to a 
heuristic approach. 

Due to the short time available and the scope of the problem, it 
was not possible to fully design an algorithm or to implement it on a 
computer. Instead, an approach is described and a data structure is 
proposed although several subproblems are solved and implemented: 

-The collection of the data, described in Chapter II.C. 

-The search for suitable rooms and the assignment of rooms 
to segments; with minor changes like implemented in the final 
examination program. 

-An integer linear programming approach to the single course 
scheduling problem; formulated and solved as an example 


within this chapter. 
A. THE PROBLEM 


By combining standard settings, frequent constraints (Chapter 
II.B.2) and logical constraints scheduling of academic courses can be 


completely described as follows: 
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Schedule all required courses 


subject to the constraints: 


All sections are scheduled such that every course of the approved 
sequence can be attended. 

Rooms can only be assigned to one segment at the same time. 
Rooms must be large enough to hold all students and suitable for 
the course purpose. 

Rooms must be in designated areas of the campus (Table 1). 
Segments of a course must be of approximately equal size. On 
request, segments consist of specified sections. 

Faculty members, assigned to teach a segment, can only be 
scheduled once per period. 

Every course must be scheduled with as many lecture and/or lab 
hours per week as indicated in the current catalog of the NPS or 
requested by the teaching faculty member. 

Regular meetings, seminars and guest lectures must be incorpo- 
rated into the schedule. 

Faculty and students must be allowed one lunch hour in the 
period between 11AM and 2PM. 

There are nine one-hour periods per day, five days per week. 
The schedule repeats each week. 

A teaching block for a particular segment consists of one to four 
consecutive hours, independent for ТЖ те and lab part. Each 
block is scheduled at most once per day. 

Segments of courses with lab parts must be subdivided in equally 
sized subsegments if requested. 

Accelerated and refresher courses may be scheduled pairwise at 
the same time and into the same room. 

Courses are scheduled together at the same time and location on 
request. 

Teaching and nonteaching periods of faculty members may be 
requested by hour and day. 


Faculty members participate in courses as student. 
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- Segments are scheduled with two faculty members teaching in a 
team on request. 
- Different segments taught by the same faculty member are 


scheduled back-to-back or with a gap on request. 
B. THE APPROACH 


The driving force of this heuristic approach to the problem is the 
necessity to produce a schedule which is feasible and includes all 
courses. To reach this goal, interaction between the human scheduler 
and the scheduling program must be possible at every step of the 
process to incorporate all constraining factors and eventualities occur- 
ring during the scheduling process. 

If infeasibilities within the data set should arise during the sched- 
uling, it must also be possible to contact the source of the data and 
reiterate the scheduling process with changed inputs. As this takes 
some time, the scheduling process will last for several days, despite the 
use of a computer. Hence, the issue of an easily maintainable and 


accessable data base is of major concern, too. 
1. The Basic Heuristic 


Figure 5.1 shows the flow diagram of the proposed scheduling 
system. The heuristic is based on the serial scheduling of complete 
courses: A course is scheduled with all its segments at the same time. 
While scheduling a particular course, only constraints of this course 
and conflicts with already scheduled courses are of concern. This has 
the disadvantage of shortsightedly creating problems to courses yet to 
be scheduled. This disadvantage could only be completely avoided by 
the use of mathematical programming techniques, which were ruled out 
earlier. Some measures taken, like priority scheduling, try to find a 
way around this problem. After a short description of the heuristic, 
each block of it is discussed in more detail in the following sections. 
The first step of the heuristic is the processing of the rough data (A). 
All necessary data concerning courses,faculty,sections,rooms апа 


constraints are checked for completeness and consistency. The data is 
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Figure 5.1 Flow Chart of the Scheduling Heuristic. 
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rearranged into different files of the data base used during all further 
steps to ensure minimum core requirement, fast access and easy update. 
The data base is stored and completly reloaded when breaks occur 
during the scheduling process. 

The control of the scheduling is performed by a priority 
system (B). A priory list is built to decrease the amount of friction 
experienced throughout the process. Valuable experience gathered by 
the schedulers over the last decade is used to order the courses in this 
file. The file is also used to ensure continuity after breaks within the 
process: Already scheduled courses are marked and the last situation is 
stored. 

Regular meetings, seminars and guest lectures (C) are sched- 
uled before the course scheduling is started. The reason for this high 
priority is the envolvement of big groups within the faculty or even the 
whole student body. For almost all meetings, seminars and guest 
lectures, time, place and audience is fixed, leaving no choice in the 
scheduling process. ‘Therefore an interactive, menu driven scheduling 
routine is appropriate. 

The. scheduling of each individual course (D-F) involves 
several steps and must be highly interactive. First, the constraint set 
has to be checked for comment-type constraints. If there is a 
comment, a automatic scheduling can not be started until it is "trans- 
lated" into data format. The proposed method is a menu driven, inter- 
active heuristic to translate the comments and schedule the course (F). 
To decrease the amount of necessary data displayed to the scheduler on 
a terminal, all courses with comment-type constraints receive highest 
priority. This reduces the amount of interaction with already scheduled 
courses and thus the amount of essential data needed to schedule the 
course. 

A course with no comment-type constraints is scheduled by an 
automatic routine (E). If no feasible solution can be found, the control 
is handed back to the manual scheduler (F). Now, all information has 
to be displayed necessary to enable the scheduler to detect the infeasi- 


bility and resolve the problem. This may involve unscheduling of 
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already scheduled courses, resorting of sections within segments of 
already scheduled courses, relaxing of constraints, or even calling the 
respective curricular offices of the students or departments of the 
faculty members involved to reach alternate decisions. The diversity of 
possible solutions to the problem of scheduling "difficult courses" forces 
an interactive approach. 

After reaching a solution and also during the process, the 
printout and storage of results must be accomplished easily. Changing 
parts of a completed schedule must also be possible as well as an 
update of the data base. This can be accomplished by an editing 


routine. 
2: Data Base 


The data base has to hold all the necessary data, must be 

Joadable entirely into memory and must be easily maintainable and 
accessable. The proposed data base accomplishing these requirements 
is shown in Figure 5.2 and described in this section. The data base is 
split into several files, connected by pointers. The files are: 

- COURSE 

- SEGMENT 

SECTION 

= CONSTRAINT 

- COMMENT 

- FACULTY 

A ROOM 

PRIORITY 
The purpose of splitting the data base into different files is the saving 
of space. By not allocating space for every possible segment per 
course, comments per faculty member, etc., the amount of space used 
by the data base is proportional to the actual amount of data, not to 
the possible amount. 

For purposes of this description, define a "record" to be a 

set of data of the same kind, belonging together. A record is recog- 
nized by a key or the place in a file, which holds records of the same 


structure. 
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Figure 5.2 Representation of the Data Base. 


a Course File 


The key for the course file is the course number, 
COUNO, a three digit number corresponding to the course name. Under 


this key, records in Table 6 are defined. 


TABLE 6 
DATA BASE, FILE COURSE 


Description 


Number of segments in course 
Number of lab subsegments per segment 
Number of lecture hours per week 
Number of lab hours per week 
Number of students in course 

COUSEGP Points to first segment of this 
course in segment file 


Key: COUNO Course number; file sorted by COUNO 





COUNO need not be stored explicitly if the course numbers are contin- 
uous integers, starting at a predefined value and the file is sorted in 
increasing order with respect to the course number. This implies, that 
record number k coincides with course number k. All segments of a 
course can be found by offseting the pointer to the segment file, 
COUSEGP, by O to NOSEG-1, because segments of a course are stored 
consecutivly following the segment pointed to. About 400 records need 


to be stored. 
b. Segment File 


lhe segment file consists of one record for each segment. 
Records can be identified by a pointer from the course file. Segments 
of one course are stored consecutively. A record is described in 
Table 7. For the lecture part of the segment, the record provides for 
possible team-teaching of a segment by defining fields for faculty 
member and constraint pointer twice. Each faculty member is identified 


by a unique three digit number corresponding to his/her two letter 
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mailcode. If only one faculty member is teaching, PRLEC2 is marked. 
CON* points to the respective record of the faculty member in the 
constraint file. For the lab part of a course there is usually no team- 
teaching and thus, only one faculty identifier PRLAB and pointer CON3 
is defined. For lecture and lab part there is one pointer each to the 
assigned room record in the room file. SEGSECP points to the first 
section of the section file belonging to this segment. About 500 records 


are necessary. 


TABLE 7 
DATA BASE, FILE SEGMENT 


Name Description 


PRIEECI First faculty member teaching lecture part 

CONP1 Points to Constraint file, constraints of PRLECI 

PREECZ Second faculty member teaching lecture part 
ONE- Points to Constraint file, constraints of PRLEC2 

ROOMLECP Points to Room file, assigned lecture room 

PRLAB Faculty member teaching lab part 

CONP3 Points to Constraint file, constraints of PRLAB 

ROOMLABP Points to Room file, assigned lab room 

SEG ore P Points to Section file, first section of segment 


Key: none, pointed to ; sorted by Course by Segment 





СЗ Section File 


The section file holds individual records for about 1000 
sections. Sections are identified by the place in the section file, which 
is ordered by section number. Each record provides for a maximum of 
six courses which can be taken by any student. COUSEGNO* is a combi- 
nation of the course number COUNO (first three digits) and the 
running number of the segment (last digit). A pointer associated with 
each COUSEGNO points to the next section of the same course/segment. 
NOSEC holds the number of students in the section. F(weekday, hour) 


holds an indicator for every hour of the week. The indicator shows 
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will hold the time table for each section at the end of the process. 


Table 8 describes a record. 


TABLE 8 
DATA BASE, FILE SECTION 


Name Description 


COUSEGNO1 Course and segment number of first course. 
SECPI Points to next section 
of same course/segment. 


COUSEGNO6 Course and segment number of sixth course. 
SECP6 Points to next section 
of same course/segment. 
NOSEC Number of students in_section. 
ET 9) Timetable of Monday. For each hour an 
indicator shows, which course is scheduled. 


F(5,9) Timetable of Friday. 


Key: section number file sorted by section number. 


TABLE 9 
USED INDICATORS IN FIELD F(*,*) OF FILE SECTION 


Indic Description 


open for scheduling 
OUSEGNOI1 scheduled 


COUSEGNO6 scheduled 
lunch schedule 

р scheduled 
guest lecture scheduled 
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d. Constraint File 


This file has no special order for it will only be accessed 
via pointers from the segment file. For each segment and teaching 
faculty member one record (Table 10) is necessary, holding the 
constraints imposed by the faculty members. As the constraint file is 
constructed out of data collected by the proposed system described in 
Chapter II.C.2, detailed information about each field can be found in 


Appendix G. About 500 records are necessary. 


TABLE 10 
DATA BASE, FILE CONSTRAINT 


Name Description 


SPECSTUD Indicates whether a particular group of 
sections needs to be in a segment. 


TEAM Indicates whether course is taught 
in a team. 


SPDAY Indicates preferance of a day. 
SPHOUR Indicates preferance of a hours. 
BACKTOBACK Indicates whether back-to-back 
teaching with other segment of same 
faculty member is preferred. 
ACCEL Indicates accelerated or refresher course. 


TOGCOU Course number of course to be 
scheduled with this course. 


BLOCKLEC Block length of lecture part in hours. 
BLOCKLAB Block length of lab part in hours. 


RLEC Room needed for lecture (first choice). 


TIO Room needed for lecture (second choice). 
RLAB Room needed for lab (first choice). 
RLAB Room needed for lab (second choice). 
CONCOMP Points to comment,if one exists. 


Key: none unsorted; pointed to from segment file. 
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е. Comment File 


The comment file holds comment-type constraints which 
could not be easily discretized. Each record is pointed to by CONCOMP 


from the constraint file. About 50 records are necessary. 
Ex Faculty File 


This file is sorted according to the faculty number corre- 
sponding to the faculty mailcode. Each record holds the faculty 
member's department number, DPNO, and a compressed timetable, 


P(weekday,hour), where entries are: 


1 if already scheduled 
P(weekday ,hour)- for all weekdays and hours 
O if not yet scheduled 


As all combinations of the two-letter mailcode are, used for the faculty 


number, 676 records are necessary. 
g. Room File 


The key of the room file is a five digit room number. 
The file is sorted according to this room number. A record is 


described in Table 11. There are 120 rooms used for academic courses. 


TABLE 11 
DATA BASE, FILE ROOM 


Name Description 


ROOMNO Room number 
ane o Number of places 


Kind of room (lecture, lab,etc.) 
1 if already scheduled 
R( weekday, hour)= for all weekdays and hours 
O if not yet scheduled 


Key: ROOMNO room number ; Sorted by ROOMNO 
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Hs Priority File 


The key for a record is the course number, COUNO. 
The file is sorted according to this number. A record contains the 
course name, COUNAME, and a pointer to the next record, PRIP, with 
lower priority. The zeroth record, with a dummy entry in COUNAME, 
points with its entry in PRIP to the highest priority course. 


i: Creating the Data Base 


The task is to set up the data structure and fil it with 
selected data from registrar files and the constraint set as well as to 
connect the files by pointers. Although this is not particularly diffi- 
cult, it is crucial at this point to check all data for easily detectable 
inconsistencies and infeasibilities and to explore ways to incorporate 
some special features of the data to ease further scheduling. Some 
points to check and consider are: 

- Check, whether faculty member teaching a course in a team have 
enough overlapping time to teach. 

- Check, whether rooms which are specially requested are large 
enough and whether all courses can be taught in this room within 
the 45-hour week. 

- check, whether all necessary data are supplied. 

- Lecture and lab hours are supplied by the current NPS catalog. 
Some faculty member need more or fewer hours. This supercedes 
the catalog data and should be used in their place. 

- Faculty member may participate in courses as student. A possible 
implementation of this constraint is to add an additional record to 
the section file representing this faculty member and the course 
he/she wants to take. A connection between this record and the 
record of this faculty member in the faculty file must be made. 
For this purpose one of the six field pairs (COUSEGNO*, SEGP*) 
can be used as they will not be needed entirely. This will 
ensure automatic consideration of these constraints without 


creating an entirely different case within the heuristic. 
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3. Assigning Priorities 


In this sequential heuristic approach, the quality of the solu- 
tion and the speed in which it is reached will depend highly on the 
order the courses are processed. The proposed heuristic uses a two 
step priority to determine the sequential ordering: 

- a static priority file and 

- a "time dependent" secondary step. 
Both steps attempt to emulate the current manual scheduling process. 
The currently used priority setting is included as Appendix I. After 
implementation of the scheduling system, experience will show whether 
this concept has to be changed entirely or how it must be modified to 


reach satisfactory results. 
a. Static Priorities 


The set of courses is sorted according to priority criteria 
such that courses with a tendency to create difficulties during sched- 
uling will be scheduled first. The ranked criteria are as follows: 

1. Courses with comment constraints. 
2. Refresher courses and accelerated courses. 
3. Courses with lab parts. Within this group, labs with blocks of 


three hours rank higher than those with blocks of two hours. 


4. Courses which require a certain day of the week 
Э. Courses taught in a team. 

6. Courses with lecture blocks of two hours or more. 
um All other courses. 


A tie within a priority group is broken in such a way that courses with 


a higher student-to-segment ratio will be assigned a higher priority. 
b. Time Dependent Priorities 


While building the static priority file, no criterion is used 
to incorporate the element of time into the ordering. This is done at 
run time. 

Starting at 8AM, the first period, all courses are scanned 


in order of the priority file, to find a course which must be scheduled 
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at this time. These courses are scheduled first. A second scan for 
the same period looks for courses which have constraints prefering this 
time. During a third scan courses which are not yet scheduled but do 
not have a preferance for all coming periods are considered for sched- 


uling. This procedure is repeated for each period. 


4. Scheduling Seminars, Meetings and Guest Lectures 





There are regularly held seminars, meetings апа guest 
lectures concerning different subsets of the faculty and the student 
body. For most of them, everything is predetermined, leaving little 
choice for the scheduler. The lack of freedom in scheduling and the 
exceptionally large groups involved makes it necessary to schedule them 
first. The proposed solution to this part is a menu driven, interactive 
routine sketched in Figure 5.3. 

Step (2) of the interactive routine asks for the weekday and 
the hours of the event. The kind of event is asked for in step (3) 
and the group involved in step (4). If the faculty of a whole depart- 
ment is involved steps (5) and (6) apply: Field P(weekday,hour) for 
all members, depending on the department number, DPNO, is marked 
with a '1'. Particular faculty members, steps (5), (8) апа аге 
found by their mailcode equivalent, determining the place within the 
ordered faculty file. Here, too, P(*,*) is set to 'l' at the indicated day 
and hours. 

As soon as all students are involved in an event, steps (5) 
and (10), F(weekday,hour) of all students is marked with a '9' in the 
appropriate field indicating a guest lecture. Seminars, steps (5), (11) 
and (12) have course numbers and course names just like regular 
academic courses. This course number has a record in the course file 
and thus all sections are reachable via pointers. By supplying the 
course number, seminars are scheduled like regular courses, without 
involvement of particular faculty members. 

After scheduling of one event, the menu repeats itself until 


all meetings, seminars and guest lectures are scheduled. 
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(1) Start 

3 REE шг Кеше пр др еше өто) 
on last answer goto step (5) or (11) 

(5) Who: Whole Department (6) or Particular (8): (?) 

on answer got step (6) or (8) 

(6) Department number: (??) 


сап to all faculty members of department '1' 
in (ОК our) for the given day and hours. 


(7) Another Department for same day/hour Y/N: (?) 


if Y goto ste 6 
if N Е es 9; 


(8) Mailcode: (??) 


assign to particular faculty member '1' 
in P(weekday,hour) for the given day and hours. 


(9) Another Person for same day/hour Y/N: (7) 


if Y goto ste 8 
if N 4515 Steg 115; 


(10) Who: All ( ) or Particular ( ): (?) 


if ALL then | 

set F(weekday,hour) for all students 
to '9' at given day and hours; 

goto step (13). 


(11) Which Course: (?????? 

set P(weekday,hour) for all sections taking this 
course at given day and hour; 

mark course in priority file as scheduled. 

(12) Another course, same time Y/N: (?) 


if Y goto step HA 


if N goto step (13 

(13) Everything scheduled? Y/N: (?) 
if Y goto (14 

if N ants 35> 

(14) Stop. 


Bold face indicates questions on screen. 


Figure 5.3 Seminar, Meeting and Guest Lecture Scheduling. 
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5. The Automatic Scheduling of a Course 


The scheduling of any course involves three major steps: 

- distributing sections among the segment of a course, 

- finding suitable periods for sections and faculty, 

- assigning rooms. 
These problems have to be solved subject to the constraints defined in 
the first section of this chapter. The proposed system provides for an 
automatic and manual system. Except for courses with comment-type 
constraints, the scheduling of all other courses is first tried automati- 
cally. Only in the case of failure is the manual scheduling routine 
entered. 

The distribution of sections among segments is closely 
connected with the problem of finding a suitable period because only 
sections with a common idle block can be sorted into one segment. As 
a solution technique integer linear programming, ILP, can be employed, 
where the stated problems and constraints are incorporated: 

- A course may have between one and four segments. 

- The sections of a course must be distributed roughly evenly 
among the segments with respect to the number of students. 

- Faculty members assigned to teach the course must be assigned to 
a particular segment. 

- Sections and faculty members can only be assigned to periods 
where both are still idle. 

- Different block sizes have to be observed as well as possible 
back-to-back constraints. 

Due to the different block sizes and varying number of 
faculty members and segments, a single ILP formulation is not possible. 
With respect to the number of faculty members and number of segments 
experience shows that the listed cases are possible: 


Case Faculty Segments 


(1) 1 1 
(11) 1 2 
(IIT) 2 2 
(IV) 2 3 
(V) 3 3 
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(VI) 2 4 

(УП) 3 4 

(VIII) ^ 4 
The block size leads to further increase in number of cases: blocks of 
1,2 and 3 consecutive hours are possible. Figure 5.5 shows the ILP 
formulation for the sample case VI. Within the next sections special 
considerations concerning the different cases and some other constraints 


in connections with the ILP are discussed. 
д Periods and Blocks 


In general, 45 one hour periods are available during the 
scheduling horizon of one week. However, as policy it is tried to 
schedule courses during the same period every day, i.e. the four 
single hour blocks of course XN3020 from Monday through Thursday 
between 9AM and 10AM. Therefore, the ILP is based on one "sched- 


"n 


uling day, the sum of the scheduling days of the week. Figure 5.4 
shows an example: For a course with three one-hour blocks, 
Wednesday, Thursday and Friday, already scheduled courses are added 
into the scheduling day (block size 1), leaving periods 2,6,7,8,9 open 
for scheduling. 

As very few courses consist of five one hour blocks, 
the addition of all already scheduled periods of the week into the 
scheduling day would unnecessarily decrease the freedom to choose in 
the ILP. For the different number of blocks per week a course can 
have, the following list provides the number of possible combinations of 
week days summed into the scheduling day: 

Number of blocks: eel 41-54) 
Number of combinations: 5 110 ]10 1 5 ] 1 | 
If the rule is employed that consecutive days early in the week are 
preferred, the following algorithm can be introduced: 
I The first scheduling day is the sum of the first n consecutive 
days of the week (n = number of blocks during the week). 
2. Solve the ILP 
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Example for a three block course summed into a, scheduling 
day composed out of Wednesday, Thursday and Friday. 


9 Periods 


Wednesday 
: Thursday 


Scheduling da 
© sige size 1 


Scheduling da 
Е БЕА size 2 


Scheduling da 
Е I size 3 


Periods with an 'x' are already scheduled. 





Figure 5.4 Building of a Scheduling Day. 


3. If a feasible solution is reached then stop, go back to basic 
heuristic with results. 

4. If no feasible solution is reached and further different combi- 
nations of week days to built a scheduling day are possible 
then 
- create new scheduling day 
- go to step 2. 

5. If no feasible solution is reached using all possible scheduling 
days then enter interactive routine. 

For the NPS scheduling problem block sizes of 1,2 or 3 
consecutive hours are possible. Figure 5.6 shows that with a block size 
of one, B = 9 scheduling periods are possible during a day, B= 8 
scheduling periods for a block size of two and B - 6 periods for a 
block size of three. At a block size of three one scheduling period 
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Notation Summary 


Subscripts 
Faculty member 
Periods 
Section 
Segment 
Variables 
Faculty member хр = 
Sect = 
ection Ysp 
Constants 
Cr .. Cost for assigning f to p 
СР ... Cost for assigning s to p 
mP .. Number of students in s 
r .. Lower bound on segment size 
К. .. Upper bound on segment size 
P ... Set of infeasible periods for f 
РЇ -.. Set of infeasible periods for s 
Sc .. Set of sections in course . 
B ... 6,8,9 for block sizes 3,2,1 respectively 


assign every faculty member once 


assign every section once 


f,,f, one faculty member 


section between r and R students 


no infeasible periods allowed 


no infeasible periods allowed 


f= {1} or {1,2} or {1,2,3} or {1,2,3,4} 
par l... DB 


"es 
as many as faculty members 


1 if f is assigned to p 


0 otherwise 
t if s is assigned to p 


0 otherwise 


Figure 5.5 ILP for the Scheduling of One Course. 
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(1) 


(2) 


(3) 


(4) 


(5) 


(6) 


(hour 4,5,6) would block all three possible lunch hours. It is there- 
fore not considered. 

Using the numbering of periods at the different block 
sizes the ILP can be employed for all block sizes as shown in Figure 
0.9 The example in Figure 5.4 demonstrates how the addition of days to 
a scheduling day leads to different numbers of idle periods for the 


respective block size. 


Hour 


Periods for 
block size 1 


Periods for 
block size 2 


Periods for 
block size 3 





Figure 5.6 Periods of Different Block Sizes. 


The variable Ysp is determined by the section s and the 
period p of the scheduling day. It is generated only for idle periods 
(constraint (6)). The number of periods B is determined by the block 
size. The variables Xgp are created if the faculty member f is idle at 


period p (constraint (5)). 
b. Segments and Faculty Members 


For the different cases of number of faculty members and 
number of segments, two measures have to be taken to use the ILP 
formulation of Figure 5.5: Create dummy faculty member variables and 
activate or deactivate constraint (3). 

For each segment, one faculty member variable has to be 


created. These are naturally given in the cases (I),(III),(V) and 
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(VIII). While a course involving as many faculty members as segments 
is tried to schedule, constraint (3) of the ILP is deleted, because it is 
possible for all faculty members to teach during the same period. 

Cases (II),(IV) and (VII) describe the situation of one 
faculty member teaching two segments. For this faculty member, two 
variables (f, and fo) are created per period. As these two dummy 
faculty members can not teach during the same period the constraint set 
(3) has to be activated. 

Case (VI) illustrates the possibility of two faculty 
members teaching two segments each. Here for each of the two faculty 
members two variables per period have to be created and the constraint 


set (3) has to be created for each faculty member. 
c. The Objective Function 


By means of the objective function, even more constraints 
and policy considerations can be brought into the scheduling ILP. 
When assigning low cost to a variable, the ILP will tend to bring this 
variable into the solution while minimizing the sum of the costs. 

Students don't like to have gaps between their scheduled 
courses. To avoid gaps, periods adjoining already scheduled courses 
are assigned lower cost than to other periods. Faculty members 
request not to be scheduled at certain hours. Assigning high costs to 
those periods will drive the solution of the ILP to other periods. These 
costs must have a certain structure, however, to achieve the desired 
goal. The right proportion between low and high costs and costs for 
section and faculty variables will have to be determined during trial 
runs. A pricing policy which showed appropriate results during runs 


of an example course scheduling problem is presented in Table 12. 
а. Back-to-Back Constraints 


Back-to-back constraints can be accounted for within the 
pricing of the faculty member variables as long as two segments of one 
courses are not taught by one faculty member (Table 12). To incorpo- 


rate these cases, additional sets of constraints need to be introduced. 
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TABLE 12 
COST CONSIDERATIONS FOR THE COURSE ILP 


Kind Event Cost 

Sections: adjoining period quc 
creating gap of 1 DICIS 
creating gap of 2 lO c ma 
creating gap of 2 20*c*m.. 
otherwise С 

Faculty: like to have c 
do not like to have 10*c*R* 
ајот ЕЛЕР 20е 
попа соон 54225 еі 
if no constraints 1 C 


& R = (sum of students in course)/(number of segments) 


ca: -the basic cost, ie. T1. 


For the cases that a faculty member wants to teach both 
segments back-to-back, the constraints have to avoid that any combina- 
tion other than adjoining periods is chosen. This can be reached by 


the following constraints: 


хр Хр) < 1 апа ихо кхе аз Үр p= L...B -2 (7) 


Xa t Xera El and ë Xy theas! Vp р=1,..В-3 


Xni a XB < l and Xp к XB = l 
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For the case that a faculty member requests not to have back-to-back 


teaching, the following set of constraints has to be included in the ILP: 


DEO 25-07 and XE * ES (nsi VP p=1,..B-1 (8) 


e. Bounds on Segment Size 


The lower and upper bound on the segment size (го, 
Rc) needed for constraint (4) is a function of, the number of students 
in the course. As students must be distributed fairly evenly among the 


segments, the exact number of student per segment would be the ratio 


Ropt - (students in course / number of segments). Suitable bounds 
for the ILP are: 

Ша - 0.9“ а truncated 

E 1. Ropt? rounded up 


These bounds wil have to be relaxed in cases were a few sections with 
relatively large number of students have to be distributed among some 


segments. 


Ë. Assignment of Rooms 


The assignment of a suitable room for a segment will be a 
problem only for courses with large segment sizes or lab-type courses 
as previous experience showed. Both types of 'problem courses! will be 
scheduled early within the process and thus reduce the amount of 
interaction with already scheduled courses. As a designated area for 
each course is defined, a choice of at most 30 rooms exists for any 
given course. The search for a room can therefore be performed by an 
exhaustive scan of the rooms in question. This task can, in principle 
be done as described for the final examination problem in section 
IV.B.3 with the exception that one and only one room per segment is 
allowed. Subroutines ROOMSUB and ROOM1 attached as рагі of 


Appendix A can be used with minor changes. 
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6. The Manual Scheduling of a Course 


The manual scheduling of a course will be necessary if either 
a comment-type constraint exists or the automatic scheduling system 
fails to produce a feasible solution. In order to enable the human 
scheduler to schedule the course, a variety of information needs to be 
available to him/her. For a fast response the information should be 
brought to the screen in a condensed form rather than to a printer. 
This section discusses the kind of data necessary to provide the infor- 
mation for the scheduler and the problem of visualizing them, before 


sketching a system for the manual scheduling task. 
a. Necessary Data and Visual Presentation 


The scheduler needs data about the course which is to be 
scheduled as well as the reason why the course could not be scheduled 
automatically. Depending on the reason, data about interfering courses 
or about rooms needs to be displayed, too. As a minimum, all data 
about the course as described in Table 7 the current timetable of all 
involved sections, F(*,*), and number of students in the section, 
NOSEC, from Table 9 the current timetable of the involved faculty 
members, P(*,**), as well as all óf their constraints from Table 11 are 
necessary. Having these data, the scheduler knows the setup of the 
course. To be of any value to him/her, the information must be 
completly displayed in one piece. Without processing, however, it will 
not be possible to display all data even for a small course on one 
screen. 

Figure 5.7 shows a possible way to display the data on a 
screen with 20 lines and 60 columns for one course. The left upper 
part of the screen presents the recent timetable for all sections, a 
matrix of nine periods and five weekdays. Each field consists of four 
possible single digit entries, a summary of the timetable entries of all 
sections. The most valuable single digit entry is the number of 
sections already scheduled at this period and day, enabling the sche- 
duler to detect gaps or periods with few already scheduled sections. 
The other fields are open for experimenting, i.e. display of the best 


infeasible solution of the automatic system etc. 
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5|]|6 |7 |8 | 9 |< Periods 
XN2150 / 349 
4 Segments 
o8 Students 
4 lec, Block 1 
2 lab, Block 2 


Reason: 

no common empty 
period among 
sections. 


HOURS DAYS BACK ROOM COMMENT 
J1ll11111 11111 2 x9999-. 0 


=> Command line 


Each time table Possible Reasons: 
entry looks like: 

-comment-type constraint 
where '3' means -no common empty periods 
3 sections scheduled. among sections | 

| -no common empty period 
'x' represents with faculty 
open fields. -no room found 





Figure 5.7 Manual Scheduling Screen. 


The right upper area of the screen is reserved for 
course data common to all segments. Below these data a short comment 
about the reason for manual scheduling is displayed. Four rows are 
provided for entries of data about up to four faculty members following 
the timetabling format. 

Although this screen provides a full overview of the 
current situation for some decisions, the scheduler needs more details. 
It will be necessary to know which course is interfering at a particular 
period or to display the timetable of a certain room. For this reason 


and for further scheduling purposes, the last line of the initial screen 
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is a command line. A command like VIEW 7 WE, would switch the 
display to detailed information about period 7 on Wednesday: The 
Wednesday timetable of the involved sections is displayed, giving the 
course data of already scheduled courses of period 7. This aids the 
scheduler's decision of which course he/she should reschedule, if no 
common empty period exists. The command ROOM 5210В, would show 
the timetable of room $210b, if the problem should be an already filled 
room. SECTIONS calls a screen displaying all sections of the course 
with the number of students in the section and a 0/1 timetable of each 
section. 

lhese three screens, together with the initial screen 
provide enough information for the scheduler for the manual scheduling 


task. 


b. The Manual Process 


The manual scheduling process, as proposed, uses a 
series of commands given from the command line of the screens 
described in the previous section to schedule the course in question. 
The kind of action taken depends on the reason for entering the manual 
system. Manual scheduling will always end with a return to the auto- 
matic scheduling routine. In this section some possible cases are 
discussed by looking at examples. 

A full manual scheduling of a course, which is possible 
without rescheduling of any blocking course could be performed as 
described in the following example: 

Given Data: 2 Segments 

4 hours lecture, block size 1 

2 faculty members: AB, XY 

Comment: all computer science students 
professor XY. 

Command: (1)BUILD 2 SEGMENTS, given from initial screen. 
(2)SEGMENT 1 ADD: XY, assigns XY to segment 1. 
(3)SECTIONS, brings up screen with sections. 

(4)SEGMENT 1 ADD: 99,203,409,533,611, assigns the 
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sections to first segment. 
(5) TIME 6MO,6TU,6WE,6FR,BLOCK=1, assigns periods. 
(6)ROOM 50000, brings up all rooms in building 5 
that are empty at period 6 and displays 
room number and number of places. 
(7)SEGMENT 1 ROOM 51200, assigns room to segment. 
(8)BACK, brings initial screen. 
(9)SEGMENT 2 REST, assigns remaining faculty and 
sections to segment 2. 
by similar commands as (3) and (5) to (8) segment 2 is 
scheduled. 
(10)GO,checks the assignments for feasibility, 
updates the data base accordingly and gives 
control back to the automatic system. 
A second possible case occurs when the summation into a 
scheduling day does not produce enough empty periods to schedule the 
segments the same hour every day. 


БЕІІ2|13 434 |5 6 | 7 |8)|9 1 Periods 


El ziz zzy z| y| yx | Monday 
ЕН -Ixixl|lx е саны ШЫР Я Tuesday 
ЕК xe 7 | | Wednesday 
PEEL. S wis c U Thursqay 
EE cce 7” 


The extreme case of a 4 hour course is displayed here. No combination 
of week days produces a single empty period in the scheduling day. A 
possible solution would be to schedule (&) Monday and Tuesday the 
first period and Wednesday and Thursday the third period. This could 
be done using commands from the previous example. 

The last example treats the hopeless case where the 
initial screen displays that at any period of the week, some section is 


already scheduled. The scheduler will have to unschedule one or more 
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courses in order to create empty periods. To do this in an effective 
way, the scheduler picks a period from the initial screen where the 
least sections are already scheduled. For example, he/she picks period 
7 on Wednesday. Then, VIEW 7 WE displays the scheduled courses of 
the involved sections, lets say only one course: LS2112. COURSE 
LS2112 then displays the timetable of course LS2112. If unscheduling of 
LS2112 would not solve the problem, the scheduler goes BACK to the 
initial screen, otherwise the command UNSCHEDULE LS2112 unschedules 
this course and updates the data base. Course LS2112 is set in the 
priority file immediatly behind the course which is scheduled currently. 
The command SCHEDULE gives control back to the automatic system, 
which now tries to schedule this course with data from the changed 
data base. 

The described examples and the way to solve the prob- 
lems resembles the actions currently performed by the scheduler. 
Experience with a future implemented system has to show whether the 


manual system outlined above is capable of handling the task. 
C. AN EXAMPLE 


As an example, the course L54120 is followed through the proposed 
system. Starting with the rough data, the entering of the information 
into the data base is performed and the course is scheduled by the 
automated system. Then the updated data base is described. 

The course LS4120, course number 186, needs to be scheduled. 
The NPS catalog shows it with 4 lecture hours and no lab hour. 75 
students are enrolled, grouped into 15 sections of different sizes. The 
decision of the department was to split the course into 4 segments. 
Two segments are taught in a team by professors JR and JY, the other 
two segments by professor KG. Entries from the constraint question- 


naire for the three faculty members are shown in Table 13 


After processing the rough data, the information is entered into 
the files of the data base. As the course has 75 students, 4 segments 
and team teaching, it receives a high priority. The scheduling of all 


courses with even higher priority is already performed and results are 
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COURSE FILE PRIORITY FILE 







COUNO| COUNAME IPRIP 
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SEGMENT PILE 





SECTION FILE 
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CONSTRAINT FILE 
: ТЕС = I BLOCK CON 
TEAM |SPDAY SPHOUR 8- TO-B, ACCEL , TOGCOUR 


NES Aue. uu aem ll 
e re em LE E Dm mm ы 
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Y99991 Y9999 | 11190 | Y9999 























FACULTY FILE 


P(MO,9) P(TU,9 P(WE,9 РИНЕ Р(ЕВ,9 
100 000000 |100 010000 |100 0100090100 010000 (|000 000000 
000 000000 [000 оооооо роо оооооороо 000011 (000 000000 


000 000011 |000 000011 роо 000011роо 000011 [ооо оооооо 





Figure 5.8 Entries in Data Base before Scheduling. 
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TABLE 13 
ENTRIES OF CONSTRAINT QUESTIONNAIRE FOR LS4120 


SPDAY 





read into the data base. Figure 5.8 reveals this situation. To prepare 
the data for the automatic scheduling routine, the scheduling days need 
to be created and the segments with team teaching need special consid- 
eration. For the team teaching segments, one faculty member, JJ, is 
created with the combined constraints of JR and JY. For the sched- 
uling day Monday through Thursday is summed first as professor JR 
does not like Friday courses. Then two dummy variables for JJ and KG 
are created as both teach two segments. Faculty variables denote XA, 
XC for JJ and XB, XD for KG, section variables denote YA trough YO. 
The results of this preparation phase, including the assignment of costs 
for the objective function according to Table 12 are displayed in Figure 
929. 

From the entries of Figure 5.9, it is possible to generate the ILP. 
The bounds on the segment sizes were calculated to be (r,R) = (17,21). 
No variables need to be generated for period 5,8,9 as both faculty 
members are not available. The same is true for section variables at 
already scheduled periods. Constraint (3) of the ILP must be gener- 
ated as faculty XA,XC are really one person (JJ), who cannot teach 
two segments at the same time. 

This problem was solved using the linear programming package 
LINDO [Ref. 12]. The formulation and the solution is attached as 
Appendix J. The size and difficulty of this problem can be considered 
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already scheduled or not available. 





Figure 5.9 Prepared Input Data for ILP, Course LS4120. 


typical for a course of this size which is scheduled with a high 
priority. For application purposes, the ILP will have to be generated 
in MPS format or some other standard format, and the ILP program 
must be connected to the rest of the scheduling program by an inter- 


face to reach the desired speed to solve the whole scheduling problem. 
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COURSE FILE PRIORITY PILE 





SEGMENT FILE 





SECTION FILE 





ROOM FILE 











R(MO,9) R(GTU,9) R(WE,9) | R(TH,9) R(FR,9) 


a ee 011 001000|011 001000 |011 001004011 001000000 000000 
БЕЛЕ 0001114101 000111 |101 0001114101 000111 [100 000111 






FACULTY FILE 












P(WE,9) P(TH,9) P(FR,9) 


, 
111 000000 |11 010000 211 010000}111 010000 000 000000 
11 000000 |о11 000000 р11 000000) 011 000011 000 000000 
011 001011 001 001011 ol 001011] 001 00101 ЕТТІ 










Figure 5.10 Entries in Data Base after Scheduling. 
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The solution produced by the ILP is feasible and therefore entered 
into the data base as seen in Figure 5.10. The course is marked as 
scheduled in the priority file and the control of the program takes the 


next course to schedule. 
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VI. CONCLUSIONS 


The purpose of this thesis was to automate the quarterly sched- 
uling task at NPS. The main advantage of an automated and thus 
faster scheduling system is to avoid the standstill in updates within the 
registrar process. To reach this goal the scheduling process had to be 
analyzed, and two computerized scheduling systems had to be devel- 
oped: The final examination system and the academic course scheduling 
system. 

The final examination scheduling system has been developed and 
implemented. It consists of two programs to prepare the input data and 
schedule the exams. The preparation program runs on a batch system. 
The partly interactive scheduling system is based fully on a heuristic 
approach. Results with real data from quarter II/85 showed that the 
system is able to produce a complete and feasible examination schedule. 
The run time is between 90 to 120 CPU-seconds on a IBM 3033. 
Depending on the initial ordering of the input data a feasible solution 
may or may not be found at the first run; reordering of the input data 
PRIOR may be necessary. 

Due to time constraints and the scope of the problem a scheduling 
system for academic courses could neither be fully developed nor imple- 
mented. The proposed approach, however, is likly to produce satisfac- 
tory results as it incorporates solution procedures to many of the 
unique features of the scheduling process at NPS. The scheduling of 
individual courses was tried using integer linear programming tech- 
niques. Many constraints could be incorporated in this approach and 
feasible results produced for example problems. 

Further work on the academic course scheduling system is neces- 
sary to reach a reliable production system. The ILP approach to the 
single course scheduling problem showed promising results; it should be 
imbedded into the overall system. Extensive testing of any system will 


be necessary to reach acceptance at the user level. 
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Although the scheduling process will be automated in the near 
future, it will be essential to have a person with comprehensive knowl- 
edge about NPS and the scheduling permanently assigned to the 
process. This will enable individual treatment of requests, quick 
response to changes in the system, decrease the number of enrollment 


changes and ensure further high quality schedules. 
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APPENDIX A 
FINAL PLC: PROGRAM LISTING 


XPLC: TIME=(€6,0),NOSOURCE ,LINES=2000,PAGES=30; 
FINAL: PROC OPTIONS (MAIN); 
/ XX XXXX XX XXXXXX XXX xxx IE IE KE IE IE E IE E KE IE E HE IE IE HE IE E IE IE JE XE JE JE KE X E X X JE X X X X X X X X X X X X / 


/ X x^ 
/ X THESIS ROUTINE TO BUILT SCHEDULE FOR FINALS x 
/ж AUTHOR: F TOE G Ass ж/ 
/ X INSTRUCTOR: K. WOOD ж/ 
/ X DATE: 07 MAY 1985 ж/ 
/ ж x/ 


ZXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
Z/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/X X/ 
/ X EXEC TO RUN THE PROGRAM X/ 
E X/ 
/X X/ 
Zx X/ 


/ XXXXXXX XX Xx x Xx E IE E IE IE KE IE E IE E E JE K JE E IE JE E JE E IE E IE JE JE JE OOO00€COCOCOOGOOOOOOOOCOCX X X X / 
/X&TRACE OFFX/ 

^XFILEDEF FIN DISK FINAL DTHE CRECFM FA LRECL 80 BLOCK 80 PERMX/ 
4^XFILEDEF FAIL DISK FAIL DIHE CRECFM FA ERECE 80 BLOCK 50 РЕКИ j 
/XFILEDEF PRIOR DISK PRIOR DATA CRECFM FA LRECL 500 BLOCK 500 X/ 
/XFILEDEF ROOM DISK ROOM DATA CRECFM FA LRECL 80 BLOCK 80 PERMxX/ 
/XFILEDEF DRUCKR DISK DRUCKR DATA CRECFM FA LRECL 80 BLOCK 80 ж/х 
/XFILEDEF DRUCKP DISK DRUCKP DATA (CRECFM FA LRECL 80 BLOCK 80 X/ 


/XEXEC PLC FINAL X/ 
/XX DRUCKR DATA x/ 
ЖЕТСЕ X/ 


/X&TRACE ONX/ 
/ XXX XX XXX XX XX X X DOOOOOGOOOXOXXXCX X XXX» XXX XX» X*XX XXX JX«OXXXxxxxxxx/ 


/% X/ 
^X DECLARATION OF VARIABLES ж/ 
/ж X/ 
zx X/ 
E А 


/ XXXXXX XXXXXXXX xxx x XXXXXXXXXXXxXxxXxxxxxxxxxxxxxxxxxxxxxxxxx/ 
DCL (NCG400),PLACES(120),USE,F,R, TIMERC120,12),NQ, BACK(G400), 
К1,К2,К5,К6,К6,КЕ5Т(50),КЕ, ЕАК((20),МЕХТОМЕ, 
PTIMECO:702,12),COURSE(400),1,KBACK,TEMP1,T1l )FIXEDC3); 
DCL CFIRST,SECOND,SINGEL,HO,UR,HOU,R5, I5,V, V1, V2 )FIXED(C2); 
DCL CEOQFROOM, EQFFIN,FIC400),E0FPRIO,COND(400), 
FREI,FOUND,FLAGCCC, DOWN, EQ, FEIN, OLDONE,PRFLAG OFIXED (1); 
DCL CROOMNCO:1200,Y1,Y8,HOUR, ROOMP,ROOME, ITER, IG, J5)FIXED; 


DCL CLOW,HIGH,X ) FLOAT; 

DCL (FAC400,4),YY CHAR (2); 
DCL (CNC0:400),EARLY CHAR (6); 
DCL (XX )СНАК (26); 
DCL (D(400,2),HBC12,2),H1B(2),B10200),TEMP2,NULLB )JBITC200); 
DCL (НН )ВІТ (200) VAR; 
DCL (D1,D2 BIT D 

/ XXX X X X X X X X X X X X XX x XXxXxxx X xx xx HK HK HHH HHH HHH HH IE IE JE © E XE X€ XE JE © X€ X€ X€ XE © X€ X X X X X X / 
2 X/ 
/ X LABELS USED X/ 
Zx x 
/ X x 
Zx ХА 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
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Z x ALLES STATEMENT LABEL CONSTANT х/ 
/ X FILL STATEMENT LABEL CONSTANT х/ 
/ X INTER STATEMENT LABEL CONSTANT х/ 
7% KEIN STATEMENT LABEL CONSTANT х/ 
x LOOK STATEMENT LABEL CONSTANT x Z 
Zx LOOK2 STATEMENT LABEL CONSTANT х/ 
/ X NEI STATEMENT LABEL CONSTANT х/ 
/ X NEWR STATEMENT LABEL CONSTANT х/ 
/ X NX STATEMENT LABEL CONSTANT ж/ 
/ Жж PART STATEMENT LABEL CONSTANT x/ 
Ж PRODRU STATEMENT LABEL CONSTANT х/ 
7% SCHLUSSF STATEMENT LABEL CONSTANT х/ 
/ X SCHLUSSIN STATEMENT LABEL CONSTANT х/ 
/ X SCHLUSSR STATEMENT LABEL CONSTANT х/ 
/ X ТКҮ STATEMENT LABEL CONSTANT х/ 
/ X МЕТТЕК2 STATEMENT LABEL CONSTANT х/ 
Zx WEITERS STATEMENT LABEL CONSTANT х/ 
/ж WEITERS STATEMENT LABEL CONSTANT ж/ 
Zx WEITERS STATEMENT LABEL CONSTANT x^ 
/X 241 STATEMENT LABEL CONSTANT х/ 
Zx ZZ STATEMENT LABEL CONSTANT х/ 
/X 442 STATEMENT LABEL CONSTANT х/ 
/ X “Z УА STATEMENT LABEL CONSTANT х/ 
/ X £73 STATEMENT LABEL CONSTANT х/ 
Zx {4% -STATEMENT LABEL CONSTANT ¥/ 
/X 2244 STATEMENT LABEL CONSTANT x/ 
Zx ZZ5 STATEMENT LABEL CONSTANT ж/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxx/ 
/ X х/ 
Zx VARIABLES USED х/ 
/ X х/ 
/X x/ 
/ X х/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
Zx BACK (X)AUTOMATIC,ALIGNED,DECIMAL,FIXEDCS,00 жх 
/X Bl CX)AUTOMATIC,UNALIGNED, BIT, STRING X/ 
/ Ж СМ (X)AUTOMATIC,UNALIGNED,CHARACTER, STRING  X/ 
/ X COND CX)AUTOMATIC,ALIGNED,DECIMAL,FIXED(1,0)0 */ 
/X COURSE (X)AUTOMATIC, ALIGNED, DECIMAL, FIXED(3,0) ж/ 
/ж (X,X)AUTOMATIC, UNALIGNED, BIT, STRING %/ 
/ж DOWN AUTOMATIC,ALIGNED, DECIMAL, FIXED(1,0) х/ 
/ Ж D1 AUTOMATIC, ALIGNED, DECIMAL, FIXEDC3,0) x/ 
/X D1 AUTOMATIC, UNALIGNED, BIT,STRING ¥/ 
/ Жж D2 AUTOMATIC, ALIGNED, DECIMAL, FIXED(3,0) X/ 
/ Ж 02 AUTOMATIC,UNALIGNED,BIT,STRING . х/ 
7% E CX) AUTOMATIC, UNALIGNED, BIT, STRING х/ 
Zx E CX)AUTOMATIC,UNALIGNED, BIT, STRING %/ 
/х EARL CXJAUTOMATIC,ALIGNED, DECIMAL,FIXED(3,0) жи 
/ Ж EARLY AUTOMATIC, UNALIGNED, CHARACTER, STRING х/ 
/ж EOFFIN AUTOMATIC,ALIGNED,DDECIMAL,FIXED(C1,0) Х/ 
/X EOFPRIO AUTOMATIC,ALIGNED, DECIMAL, FIXED(1,0) х/ 
/ Ж EOFROOM AUTOMATIC,ALIGNED,DECIMAL,FIXED(1,0) ж/ 
/ж Е0 AUTOMATIC,ALIGNED, DECIMAL, FIXED(1,0) x/ 
/ Ж F AUTOMATIC,ALIGNED,DECIMAL,FIXED(3,0) x/ 
/X FA (X,X)AUTOMATIC,UNALIGNED, CHARACTER, STRINGX/ 
/ж FEIN AUTOMATIC, ALIGNED, DECIMAL, FIXED(1,0) х/ 
/X FI CXJAUTOMATIC,ALIGNED, DECIMAL,FIXED(1,0) Xx⁄ 
Zx FIRST AUTOMATIC,ALIGNED,DECIMAL,FIXED(2,0) х/ 
Zx FLAGCCC AUTOMATIC,ALIGNED,DECIMAL,FIXED(1,0) х/ 
Zx FOUND AUTOMATIC,ALIGNED, DECIMAL,FIXED(1,0) ж/ 
/ X FRAND CX)AUTOMATIC,ALIGNED,DECIMAL,FIXED(S,0) жх 
Zx FREI AUTOMATIC,ALIGNED, DECIMAL,FIXED(1,0) х/ 
/ X HB (X,X)AUTOMATIC,UNALIGNED, BIT, STRING х/ 
Zx HH AUTOMATIC,UNALIGNED,VARYING,BIT,STRING х/ 
7% HIGH AUTOMATIC,ALIGNED, DECIMAL, FLOAT(C6) х/ 
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Un iz 


SECOND 


AUTOMATIC,ALIGNED, DECIMAL , FIXED( 
AUTOMATIC,ALIGNED, DECIMAL, FIXED( 
AUTOMATIC,ALIGNED, DECIMAL, FIXED(C 
CXJAUTOMATIC,UNALIGNED, BIT,STRIN 
AUTOMATIC,ALIGNED, DECIMAL, FIXED( 
AUTOMATIC, ALIGNED, DECIMAL, FIXED(C 
AUTOMATIC, ALIGNED, DECIMAL, FIXED( 
AUTOMATIC, ALIGNED, DECIMAL, FIXED( 
AUTOMATIC,ALIGNED, DECIMAL, FIXED(C 
AUTOMATIC, ALIGNED, DECIMAL, FIXED( 


2,0) 

2,0) 

5,0) 

G 

3 

5 

5 

с 

5 

5 
AUTOMATIC,ALIGNED, DECIMAL, FIXEDC5 

5 

5 

3 

3 

3 

5 

5 

5 

5 

5 

E 


, 
, 
, 


AUTOMATIC,ALIGNED,DECIMAL,FIXED( 
AUTOMATIC,ALIGNED,BINARY,FIXED(1 
AUTOMATIC,ALIGNED,DECIMAL,FIXED( 
AUTOMATIC,ALIGNED,DECIMAL,FIXED( 
AUTOMATIC,ALIGNED,DECIMAL,FIXED( 
AUTOMATIC,ALIGNED,DECIMAL,FIXED( 
PARAMETER, ALIGNED, DECIMAL, FIXED( 
PARAMETER, ALIGNED, DECIMAL, FIXED( 
PARAMETER,ALIGNED, DECIMAL, FIXED( 
AUTOMATIC,ALIGNED, DECIMAL, FIXED( 
CX)AUTOMATIC,ALIGNED, DECIMAL, FIX 
AUTOMATIC, ALIGNED, DECIMAL, FLOAT C6 
AUTOMATIC, ALIGNED, DECIMAL, FIXED(3,0) 
AUTOMATIC, ALIGNED, BINARY, FIXED( 15,0) 
CX)JAUTOMATIC,ALIGNED, DECIMAL, FIXED(3,0) 
(X,X)AUTOMATIC,UNALIGNED, BIT, STRING 
( X)AUTOMATIC,ALIGNED, DECIMAL, FIXED(3,0) 
AUTOMATIC,ALIGNED, DECIMAL, FIXED( 3,0) 
AUTOMATIC,ALIGNED, DECIMAL, FIXEDC(3,0) 
AUTOMATIC, UNALIGNED, BIT,STRING 
AUTOMATIC,ALIGNED, DECIMAL, FIXEDC3 
AUTOMATIC,ALIGNED, DECIMAL, FIXED(3 
AUTOMATIC,ALIGNED, DECIMAL, FIXEDC3 
AUTOMATIC, ALIGNED, DECIMAL, FIXED(3 
5 
1 
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AUTOMATIC,ALIGNED, DECIMAL , FIXED( 
AUTOMATIC,ALIGNED, DECIMAL, FIXED( 
CXJAUTOMATIC, ALIGNED, DECIMAL, FIXE 
AUTOMATIC,ALIGNED, DECIMAL, FIXED(1, 
CX, X)AUTOMATIC,ALIGNED, DECIMAL, FIX 
AUTOMATIC, ALIGNED, DECIMAL, FIXED(3,0 
AUTOMATIC, ALIGNED, DECIMAL, FIXED(3,0) 
CX¥JAUTOMATIC,ALIGNED, DECIMAL, FIXED(C3,0) 
AUTOMATIC, ALIGNED, DECIMAL, FIXED(5,0) 
CX)AUTOMATIC, ALIGNED, DECIMAL, FIXEDC5,0) 
AUTOMATIC, ALIGNED, DECIMAL, FIXED(5,0) 
AUTOMATIC, ALIGNED, DECIMAL, FIXED(C3, 
AUTOMATIC,ALIGNED, DECIMAL, FIXED(3, 
AUTOMATIC, ALIGNED, DECIMAL, FIXED(3, 
AUTOMATIC,ALIGNED, DECIMAL, FIXED(3, 
AUTOMATIC, ALIGNED, DECIMAL, FIXED(C3, 
AUTOMATIC,ALIGNED, DECIMAL, FIXED(3, 
AUTOMATIC,ALIGNED, DECIMAL, FIXED(3, 
AUTOMATIC, ALIGNED, DECIMAL, FIXED(3, 
AUTOMATIC,ALIGNED, DECIMAL, FIXED(3, 
AUTOMATIC,ALIGNED, DECIMAL, FIXED(3, 
CX JAUTOMATIC,ALIGNED, DECIMAL, FIXED 
ED 
5, 
5, 
5, 
2, 
5, 
5, 
3, 
2, 


, 
, 
, 
› 
, 
› 
D 


CX)AUTOMATIC,ALIGNED, DECIMAL,FIX 
AUTOMATIC,ALIGNED, DECIMAL, FIXEDC 
AUTOMATIC, ALIGNED, DECIMAL, FIXED( 
AUTOMATIC,ALIGNED, DECIMAL, FIXED( 
AUTOMATIC, ALIGNED, DECIMAL, FIXED(C 
AUTOMATIC,ALIGNED, DECIMAL, FIXED( 
AUTOMATIC,ALIGNED, DECIMAL, FIXED( 
AUTOMATIC, ALIGNED, DECIMAL, FIXED( 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
( 
( 
0 
0 
0 
0 
0 
0 
0 
AUTOMATIC, ALIGNED, DECIMAL, FIXED(C2,0 


) 
) 
) 
) 
) 
) 
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) 
) 
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) 
) 
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/ X SINGEL AUTOMATIC,ALIGNED, DECIMAL, FIXED(C2, 0) X/ 
1X SUM AUTOMATIC, ALIGNED, DECIMAL, FIXED(5,0) х/ 
/ X SUM PARAMETER, ALIGNED, DECIMAL, FIXED(5,0) х/ 
+ SUM PARAMETER,ALIGNED,DECIMAL,FIXED(5,0) ж/ 
/X SUM PARAMETER,ALIGNED,DECIMAL , FIXED(C5, 0) х/ 
ZX - TEMP CX JAUTOMATIC,ALIGNED, DECIMAL, FIXEDC3 х/ 
/х ТЕМРІ AUTOMATIC, ALIGNED, DECIMAL ,FIXEDC3,0) х/ 
Zx TEMP2 AUTOMATIC,UNALIGNED,BIT,STRING ж/ 
/ X TIMER (X,X)AUTOMATIC, ALIGNED, DECIMAL , FIXEDCS, 0) x/ 
/ X T AUTOMATIC,ALIGNED,DECIMAL,FIXED(3,0) х/ 
/ X UR AUTOMATIC, ALIGNED, DECIMAL, FIXED(2,0) X/ 
Vx USE AUTOMATIC,ALIGNED, DECIMAL, FIXEDC 3,0) х/ 
/ X V AUTOMATIC, ALIGNED, DECIMAL, FIXED(2,0) х/ 
Z x V1 AUTOMATIC,ALIGNED,DECIMAL,FIXED(2,0) х/ 
/X V2 AUTOMATIC,ALIGNED, DECIMAL, FIXED(C2,0) х/ 
/X H (X)AUTOMATIC,UNALIGNED,CHARACTER,STRING ж/ 
/% М1 AUTOMATIC, UNALIGNED, CHARACTER, STRING х/ 
/ X W2 AUTOMATIC, UNALIGNED, CHARACTER, STRING X/ 
/ X W3 AUTOMATIC,UNALIGNED, CHARACTER, STRING X/ 
7 ® X AUTOMATIC,ALIGNED, DECIMAL ,FLOAT (C6) ж/ 
/ X XX AUTOMATIC, UNALIGNED, CHARACTER, STRING х/ 
/ X YY AUTOMATIC,UNALIGNED, CHARACTER, STRING х/ 
/ X Yl AUTOMATIC,ALIGNED,DECIMAL, FIXED(5,0) х/ 
/X Y8 AUTOMATIC, ALIGNED, DECIMAL, FIXEDC5,0) X/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/ X х/ 
/ X EXTERNAL FILES USED x/ 
/ X x 
/ X х/ 
/ X х/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X DRUCKP FILE, STREAM, EXTERNAL x 
Zx DRUCKR FILE,STREAM, EXTERNAL x/ 
/ X FAIL FILE, STREAM, EXTERNAL X/ 
/ X FIN FILE, STREAM, EXTERNAL х/ 
/X PRIOR FILE, STREAM, EXTERNAL х/ 
/X ROOM FILE, STREAM, EXTERNAL х/ 
/Á/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/ X А x^ 
/X SUBROUTINES USED х/ 
/ZX х/ 
/ X х/ 
/ X х/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
Z x AGAIN ENTRY, DECIMAL ,FLOAT(6) X/ 
/х COMPLET ENTRY , DECIMAL , FLOATC6) Ж / 
/X DRUCK ENTRY , DECIMAL , FLOATC6) х/ 
/ X EIN ENTRY , DECIMAL, FLOATC6) х/ 
/ X FINAL ENTRY, DECIMAL,FLOAT(6) х/ 
/% GUIDE ENTRY,DECIMAL,FLOATC6) ж/ 
/ X LENKI ENTRY,BINARY,FIXED(15,0) Ж / 
/ X LOESCH ENTRY,BINARY,FIXED(15,0) ж/ 
/ X LOESCHP ENTRY, BINARY, FIXED(15,0) х/ 
/х NEIGH ENTRY,BINARY,FIXEDC15,0) x/ 
/х NEIGHI ENTRY,BINARY,FIXED(15,0) х/ 
Z x PARTIAL ENTRY , DECIMAL , FLOATC6) Ж / 
/ X PROFSUB ENTRY »,DECIMAL ,FLOAT(C6) ж/ 
1% ROOMSUB ENTRY ,DECIMAL ,FLOATC6) х/ 
/ X ROOMSI ENTRY,DECIMAL,FLOAT(C6) X/ 
< RO0MS2 ENTRY,DECIMAL,FLOAT(6) x/ 
/ X ROOMS3 ENTRY,DECIMAL,FLOATC6) х/ 
/X ROOMS ENTRY ,DECIMAL,FLOAT(C6) х/ 
/X SWITCH ENTRY ,DECIMAL,FLOATC6) ЖХ / 
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ÁJXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


Zx EXTERNAL FILE DECLARATION x7 
/X ж/ 
/X X/ 
/X ж/ 
иж Ж/ 


SHH HHH HHH HH HEHEHE HEHE K KKK K KK KKK K KKK K KKK KK KK K KXK K K KK K X X K X X X X X X X X X X X X X/ 
DCL PRIOR FILE STREAM; 

DCL FIN FILE STREAM; 

DCL ROOM FILE STREAM; 

DCL DRUCKR FILE STREAM; 

DCL DRUCKP FILE STREAM; 

DCL FAIL FILE STREAM; ИЕ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/X NNNNVZZ ZZ х/ 
/ ж IF YOU WANT TO SEE THE PROGRAM WORK x/ 
/ ж SET THE PRFLAG= 1; S S 7 . х/ 
/X \VZ х/ 
/X V x/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
PRFLAG=0; 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X SET ENDFILE CONDITIONS FOR THE НЕО ЕЛШЕ х/ 
/X . х/ 
/ ж х/ 
Zx х/ 
/X | х/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
EOFROOM=0; 

EOFFIN=0; 

EOFPRIO=0; 


ON ENDFILE (ROOM) EOFROOM=1; 

ON ENDFILE CFIN) EOFFIN-1; 

ON ENDFILE (PRIOR) EOFPRIO=1; 

/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


Z% SET INITIAL CONDITIONS х/ 
/х х/ 
/ X x 
/ X š х/ 
/ X X^ 
ZXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX K K K KK KK KKK KXK XK XKX X X X XX X X XX XX X/ 
BICIS В; 7ЖАККАҮ ОҒ DISTINCT BIT STRINGS , EACH */ 
/ж ENTRY HAS ONE '1' AND 199 "0%х/ 

CNCUJ- rc E /¥CREATES ===> ON TOUTE WT 2 

="O'B; /4XBIT STRING FOR EACH COURSEX/ 

DOWN=3; /XON OFF FOR BUILDING CONSTRAINTSX/ 

EARL 7-0; /XARRAY WITH EARLY FINAL COURSES X/ 
FOUND=0; /4XFLAG FOR ROOM FOUND х/ 
FREI=0; /XFLAG FOR PROF IDLE ж/ 
HIGH=2.10; /ЖҒАСТОК ҒОК UPPER ROOM SIZEX/ 

LOW=1.49; /ZXFACTOR FOR LOWER ROMM SIZEX/ 
NULLB="'O'B; /XBIT STRING USED FOR COMPARISONSX^/ 
ROOMN=0; /ЖАККАҮ ОҒ USABLE ROOMS X/ 
Т1=1; /X USED FOR INTERMEDIAT STORAGEX/ 
V 7057 4X USED FOR BRANCHING х/ 
Vlz1; 4X USED FOR BRANCHING XZ 
V2=1; иж USED FOR BRANCHING жх 
XX-'ABCDEFGHIJKLMNOPQRSTUVHXYZ' ;/XUSED FOR PROF ID жх 
Х=.5; /XSEED FOR RAND NUMBER GENERATORXZ 


Z/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


4% INPUT FILE ROOM: ROOMN=ROOMNUMBER CFC5)) x 
/X USE- ALL LECTURE ROOMS GET TRANFERED х/ 
/X PLACE=NUMBER OF PLACES AVAILABLE X/ 
/ X х/ 
/% х/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
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OPEN FILE (ROOM) INPUT; 
DO 1=1 TO 120; 

NEWR : 

GET FILE (ROOM) EDIT CROOMNCI),USE,PLACESCI)) 

СЭР ЕСК ЕС2), ХС), ЕС2)); 

IF EOFROOM-1 THEN GOTO SCHLUSSR; 

IFC USE>10)|CUSE<1)]CUSE=4) THEN GOTO NEWR; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXx/ 
их ROOMS, WHICH ARE NOT AVAILABLE DUE TO REFRESHER COURSES x/ 


^X ARE FILTERED OUT х/ 
/ X X/ 
/ X X/ 
Zx THIS HAS TO BE SPECIFIED EVERY TIME х/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
IF ROOMNCI)=43220 THEN GOTO NEWR; 
IF ROOMNCI)=43800 THEN GOTO NEWR; 
IF РООММ(І2:71560 THEN GOTO NENHR; 

END; 


SCHLUSSR: 
К-1-1; ^X NUMBER OF ROOMSx^/ 


CLOSE FILE (ROOM); 
/ XXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/X INPUT FILE FINAL DATA Ж/ 
Zx CN() COURSE NAME х/ 
Zx N() NUMBER OF STUDENTS IN COURSE Ж / 
Ж CONDC) LAB OR TEAMTEACH INDICATOR ж/ 
Zx FA(,) PROFS TEACHING PIO '1' IF NO FINAL х/ 


/ XXXXXXXXXX XXX XXX X X XXXXOOO0O0O0O000000000000000O0OOOOOOOOOEXX XX XX XX X/ 
OPEN FILE (FIN) INPUT; 
ро 1=1 TO 400; 

GET FILE, (FIN) EDIT 


(CN(I1),N(I),COND(I),FA(I,1),FA(I,2),FA(I,3) ,FACI,4),FICI)) 
(SKIP,X(8),A(6),X(5),F(3),X(12),F(1),X(6),A(2),X(3),AC2) 
›Х(5),А(2),Х(5),А(2),Х(5),ЕС1)); 


IF EOFFIN=1 THEN GOTO SCHLUSSF; 
END; 


SCHLUSSF : 

F=I-1; “7X # OF COURSES ж/ 

POSE FILE (FIN); 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/ X INPUT PRIOR DATA x/ 
/ X COURSEC) COURSE NUMBER х/ 
/X DC,) BIT INDICATOR FOR EACH COURSE X/ 
/ X . x^ 
/ X х/ 


/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
OPEN FILE (PRIOR) INPUT; 
DO I-1 TO 400; 
GET FILE (PRIOR) EDIT CCOURSECI),DCI, 
CSKIP,FC3),X02),B0200),BC200 
а IF EOFPRIO=1 THEN GOTO SCHLUSSIN; 
ND; 


SCHLUSSIN: 
CLOSE FILE (PRIOR); 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


I5? DCI,2)) 
22; 


7% FILL THE ARRAY Bl WITH 200 DISTINCT BIT STRINGS ж/ 
/ж EACH ONE '1* AND 199 "0". х/ 
Zx х/ 
Zx х/ 
Zx х/ 
/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
НН='0'В; 


DO I=2 TO 200 


В1(1)=(НН || '1'B); 
Mn -HH || '0'B; /XUSED TO CREATE THE B1() x^ 
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/JXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/ж STAMP OUT UNSCHEDULED COURSES X/ 
/% AND COURSES WITHOUT FINAL. х/ 
/ ж х/ 
Z x/ 
VID х/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxx/ 
TRY: 
IF PRFLAG=1 THEN 
PUT SKIPC3) LIST (*'*, "ANOTHER COMPEETE ЕТ НИ 
PTIME=0; 7XARRAY HOUR VS PROF, ENTRIES ARE COURSE #7 
TIMER=0;7X*XARRAY HOUR VS ROOM, ENTRIES ARE COURSE #7 
HB='0'B; 
DO Y8=1 TO F; 
BACKCCOURSECY8))=Y8; /XLINK BETWEEN FIN INPUT DATA жх 
/XAND PRIOR INPUT DATA x 
IF FICCOURSECY8))=1 | FACCOURSECY8),1)='OO'THEN DO; 
IF COURSECY$)<201 THEN DG; 
DCX,120-zDCX, 12&C-B1CCOURSECY822); 


END; 
ELSE DO; 
a € D(x,2)=D(x,2)&(-B1(COURSE(Y8)-200)); 
EE COURSECY8}=-1*COURSECY8); /XNEGATIVE HHEN SCHEDULEDX^/ 
ND; 
END; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X х/ 
/X MAIN CONTROL OF PROGRAM х/ 
/ X х/ 
/X х/ 
/X 34 
/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
DOWN =3; ^X HONOR BUILDING BOUNDSX/ 
IF V>1 THEN DO; /XNOT FOR THE FIRST TIME < 
CALL LENKI; /XSCHEDULE EARLY FINALS AND NOT х/ 
END; /XSCHEDULED COURSES FIRST x/ 
ELSE DO; 
PUT SKIPC1) LIST C*PUT COURSES WITH EARLY FINALS')}; 
CALL EIN; /XINPUT EARLY FINALS X7 
V=2;/XINDICATES AT LEAST SECOND RUNX/ 
END; 
PART: 
CALL PARTIAL; /XSCHEDULE ALL x¿Z/ 
CALL COMPLET; /*CHECK FOR NOT SCHEDULED COURSES X/ 
IF FLAGCCC=0 THEN DO; ^X IS 'O' WHEN ALL COURSES SCHEDULEDX/ 
CALL DRUCK; /^XPRINT OUTPUT IN EXTERNAL FILES x^ 
STOPS 
END; 


IF CRE»F/22) & (V1«6) THEN DO;^7XRE-4 OF NOT SCHEDULED COURSESXx/ 
Vl-V1l +1; /XCOUNTER */ 
LOH-zLOMNX.98; /^XMAKES IT GRADUALY EASIER х/ 
HIGH-HIGHX1.0; 
V-2; 
DO I=1 TO F; 

COURSECI)=ABSCCOURSECI)); /XRESET SCHEDULE-INDICATORX^/ 

END; 


GOTO TRY; /XSCHEDULE ALL AGAIN X^ 
END; 
IF RE> F418 THEN DO; 
GOTO INTER; /^XTOO MANY COURSES NOT SCHEDULED */ 
END; 
NEIL: 
CALL NEIGH; /XSELECTIVE RESCHEDUETNG X7 
CALL COMPLET; 
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IF FLAGCCC=0 THEN DO; 
PUT SKIP LIST (' FEASIBLE SCHEDULE FOUND'); 
CALL DRUCK; 


STOP; 
END; 
V2=V2+1; Z%COUNTER x¿Z/ 
LOW=1.2; /^XRELAX BOUNDSXx/ 
HIGH-5.0; 


IF V2< 6 THEN GOTO NEI; 
IF V=3 THEN GOTO INTER; 


V=3; 

V2=2; 

GALL AGAIN; /XNHOLESALE RESCHEDULING жх 

GOTO NEI; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X INTERACTIVE CONTROL OF THE PROGRAM X/ 
/X (THERE IS A POSSIBILITY TO SCHEDULE SELECTIVE X/ 
/X ONLY ONE COURSE: ANSMER THE QUESTION: x/ 
/X "TRY AGAIN ??????' WITH 2 х/ 
/X х/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxXxxxXXXXXxxxxxxxxxxxx/ 
INTER: 

V-2; 


PUT SKIP(2) LIST ('','NOT SCHEDULED UP TIL НОН"); 
PUT SKIP LIST ('NUMBER', 'COURSE',' f OF STUDENTS'!); 
DO Y8-1 TO RE; 7*XPRINT NOT SCHEDULED COURSES TO SCREEN X/ 
I-BACKCRESTCY8)); 
PUT SKIP LIST CCOURSECI),CNCCOURSECI)),NCCOURSECTII)); 
END; 


PUT SKIP LIST 

C'TRY AGAIN ??????: 1=ҮЕЅ5 3=PRINT-AND-STOP 4= STOP '); 
GET EDIT (ITER)CCOL(1);FCI)); 
IF ITER=4 THEN DO; 
DO I=1 TO 12 WHILE (PRFLAG = 1); 
PUT SKIP І11І5Т (1,НВ(І,1),НВ(1,2)); 


END; 
STOP; 
END; 
IF ITER=3 THEN DO; 
LOW=1.2; 
HIGH=8 .0; 


CALL NEIGH; 

CALL COMPLET; 

IF FLAGCCC=0 THEN DO; 
PUT SKIP LIST (' FEASIBLE SCHEDULE FOUND'); 
CALL DRUCK; 


STOP; 

END; 

ELSE DO; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X х/ 
/х PRINT NOT SCHEDULED COURSES ІМ EXTERNAL FILE "ҒАП! x 
/X x/ 
/ X x/ 
/X x/ 


Z/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXx/ 
OPEN FILE (FAIL) OUTPUT; 
PUT FILE CRATE) SKIP LIST ('HOUR INDICATORS'); 
DO I=1 TO 12; 
ae melee Pe (FATL) SKIP List CI,HBCLIOHBCI, 22); 
hee Pah SKIP (2 ers NOT SCHEDULED COURSES"); 
PUT FILE CFAIL) SKIP’ C2) LIST 
Cee COURSE #', *COURSE*); 
DO I-1 TO RE; 
IU III E (FAIL L) SKIP'I11SI (L,RESI(I),CN(REST(1I))); 


END; 

CLOSE -FILESCEATIO: 
CALL DRUCK; 

STOP; 


PUT SKIP LIST С'5ЕТ LOW BOUND FOR PLACES, NOW',LOW); 
GET EDIT (LOMW)(COL(1),F(3,1)); 

PUT SKIP LISTC'LOW SET TO:',LOW); 

PUT SKIP LIST C'SET HIGH BOUND FOR PLACES, NOW',HIGH); 
GET EDIT CHIGH)(COL(1),FC4,1)); 

PUT SKIP LISTC'HIGU SET ТО ici: 


DOWN-5; 
/ XX XX XX X X X X OOOOO00000000000000000000000OODOOOOOOOXXX XXX XXXXXX X XXX / 
^X THIS PART IS ONLY USED WHEN ITER = 2 ж/ 
/X IN TEST RUNS ж/ 
/X X 
X x 
x ж/ 


Z/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
IF ITER=2 THEN DO; 
PUT SKIP LIST C'WITH PARTIAL OPTION:'); 
PUT SKIP LISI 
('YOU WANT TO SPECIFY THE BUILDING BOUNDS? YES=0 NO=3'); 
GET EDIT (DONN) (COL(1),F(1)); 
IF DOWN-=0 THEN GOTO KEIN; 
PUT SKIP LIST C'1LOQOO=BULLARD'); 
PUT SKIP LIST C'20000-HALLIGAN'); 
PUT SKIP LIST (€'SGO00Q00=INGERSOL'); 
PUT SKIP LIST €'60000-ROOT'); 
PUT SKIP LIST (€'/70000=SPANNAGEL '); 
PUT SKIP LIST C'LOWER BUILDING NUMBER: '); 
GET EDIT CROOMPOCCOLC12,FC52); 
PUT SKIP LIST C'HIGHER BUILDING NUMBER:'2); 
GET EDIT CROOME)CCDLC1),F05)); 


DOWN=2; 
GOTO PART; 
KEIN: 
PUT. SKUPSEEsT 
(" *, "SET THE BUILDING CONSTRAINTS OFF, O=TES S-Ni ae 
GET EDIT'€DOPMNDOCCOUCIOSFECIOOS 
GOTO PART; 

END; 

ELSE. DO; К 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/ж Ж / 
/X Ж / 
/ X ALL OVER AGAIN: SORT PRIOR NEW AND START AGAIN х/ 
/ X х/ 
/ж Ж / 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
VISI; 

V2=1; 


РОТ SKIP LIST 
('DO YOU WANT TO SET THE EARLY FINALS NEW? Y=1, N=2'!'); 
GET EDIT КС\У)ССОС1),ЕС1)); 
PUTE SKIP LCI T 
('DO YOU WANT THE COURSES SORTED RANDOMLY? Y=1 N=3'); 
GET EDIT (ITER) ССОО: 
IF ITER = ol. THEN, DO; 
CALL SWITCH; /XRESORTS THE THE COURSE ARRAY IN A жх 
V=0; /ж SEMI RANDOM FASION */ 
GOTO TRY; 
END; 
CALL COMPLET; 
DO I-1 TO F; 
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COURSECI)=ABSCCOURSECI)); 


END; 

GOTO TRY; 

END; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/ X х/ 
/X S UBROUTINS х/ 
/X х/ 
/X х/ 
/X х/ 


/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/JXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/ X WHOLESALE RESCHEDULING х/ 
/ X RESCHEDULING OF COURSES WHICH ARE ALREADY SCHEDULED X/ 
/ X х/ 
/ X SUBROUTINE AGAIN х/ 
/х х/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
AGAIN: PROC; 
ӘСІ (ТЕМР(120),М1,М2,М5,М4,М5) FIXED (3); 
IF PRFLAG=1 THEN 
ӘШІР КІР LIST (€**,*!,*ENTER AGAIN"); 
DO Nl=l1 TO 8; 
NG=1; 
TEMP=0; 
DO N2=1 TO R; 
IF TIMERCN2,N1)=0 THEN GOTO NX; 
DO N5=1 TO NG; 
En IF TIMER(N2,N1)=TEMP(N5) THEN GOTO NX; 
D; 


DO N5=1 TO 20 HHILE (N1<3); 
IF TIMER(N2,N1)=EARL(N5) THEN GOTO NX; 
END; 


Y8-BACK(CTIMERCN2, N12); 
COURSECY8) ABSCCOURSECY8)); 
DO N3=1 TO N1-1,N1-*1 TO 8; 
HOUR=N3; 
HOU=N3; 
HO=N3; 
IF MODCHOUR,2)=0 THEN HO=N3-1; 
CALL GUIDE; 
IF FREI-1 & FOUND-1 THEN DO; 
HOUR=N1; 
COURSECY8) =ABSCCOURSECY8)); 
DO N5=N2 TO R; 
Seas i C OURSECTS) THEN TIMERCN5,N1)=0; 
D; 
CALL LOESCHP; 
IF COURSECY8)<201 THEN 
Ше ВОКА) & C^ BICCOURSECY8200); 
HBCHOUR, 2»? x CHBCHOUR,2D) &C-BICCOURSECY8)2-200)2)2); 
COURSECY8)27-1XCOURSECY8); 
GOTO NX; 
END; 
ы? COURSECY8) =-1*COURSECY8) ; 
D; 
TEMPOCNG) =COURSECY8); 
Ма=Ма+1; 
МХ: 
END; 
END; 
END AGAIN; 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


^X PRINTOUT TO THE SCREEN: х/ 
/X NOT SCHEDULED COURSE. х/ 
^X REARANGE NOT SCHEDULED COURSES TO TOP OF PRIORITY LIST X^ 
/х х/ 
/X SUBROUTINE COMPLET х/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
PUT SKIPC2) LIST €'*,*NOT SCHEDULED UP TIP Nth 
PUT SKIP LIST ('NUMBER*', "COURSE’>'"G OF STUDENTS DE 

PUT SKIP LIST CCOURSECI),CNCCOURSECI)),NCCOURSECI))); 
COMPLET: PROC; 
RE=1; 
REST=0; 
FLAGCCC=0; 
IF PRFLAG=1 THEN 
PUT SKIPC2) LIST С", МОТ SCHEDULED UP Tle Nok: 
IF PRFLAG=1 THEN 
PUT SKIP LIST (C*NUMBER', ‘COURSE’, “#50F SiUDENTS oS 
DO I=1 TO F; 
BACKCABSCCOURSECI)))=I1; 

IF COURSECI)>0 & FICI)-~=1 THEN DO; 
IF PRFLAG=1 THEN 
PUT SKIP LIST CCOURSECI),CNCCOURSECI)),NCCOURSECI))); 
RESTCRE)=COURSECI); 


RE=RE+1 ; 
FLAGCCC=1; 
END; 
ENDS 
RE-RE-1; | ^X # OF NOT SCHEDULED COURSES x7 
RETURN; 


END COMPLET; 
/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


Ж DEFINE COURSES WITH EARLY FINALS х/ 
/X х/ 
/X SUBROUTINE EIN х/ 
/X х/ 
/X x/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
EIN: PROC; 

T5915 


DO I4-1 TO 20; 
PUT SKIP LIST C'PUT "000000" WHEN READY'); 
PUT SKIP LIST C19, 'COURSE'); 
GET EDIT CEARLY) CCOLC1),AC6)); 
IF SUBSTRCEARLY,1,1)='0O* THEN DO; 
I5=I5-1; 
RETURN; 
END; 
PUT SKIP LIST (EARLY); 
DO J5=1 TO F; 
IF INDEXCEARLY,CNCABSCCOURSECJ5))))=1 THEN GOTO LOOK; 
END; 
GOTO LOOK2 ; 
LOOK: 
EARLCI5D-ABSCCOURSECJ52); 
PUT EDIT C'NUMBER', *'COURSE', 'STZE S) 
(SKIPCIO,AC26400,AC2G08)0 ACORDE 
PUT SKIP LIST CABSCCOURSECJ5)),CNCABS (COURSE GS Ore 
NCABSCCOURSECJ5)))); 
Y8= J5; 
HOUR=1; 
HOU=1; 
HO=1; 
CALL GUIDE; 
IF FOUND-~=1 THEN DO; 
Yë= J5; 
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HOU=2; 
HO=1; 
HOUR=2; 
CALL GUIDE; 


END; 
IF FOUND = 1 THEN DO; 
І5-І5%1; 
PUT SKIP LISTC'SCHEDULED AT HOUR',HOUR); 
END; 
ELSE DO; 
PUT SKIP LIST 
("МОТ SCHEDULED BECAUSE '); 
IF FREI=9 THEN PUT LIST ¢€' ALREADY SCHEDULED'); 
IF FREI*8 THEN PUT LIST ¢€' CONFLICTS IN FIRST TWO HOURS'); 
IF FREI=0 THEN PUT LIST (' PROF BUISY IN FIRST TMO HOURS'); 
IF FREI=0 THEN PUT LIST €(' PROF BUISY IN FIRST THO HOURS'); 
IF FREI=1 & FOUND-=1 THEN 
PUT LIST (' NO SIZE ROOM IN FIRST TWO HOURS'); 


END; 
LOOK2 
END; 
I5-I5-1; 
RETURN; 
END EIN; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/ж SUBROUTINE LOOKING FOR POSSIBLE COURSES TO SCHEDULE x/ 
/X WITHIN THIS HOUR. х/ 
/X х/ 
/% SUBROUTINE GUIDE х/ 
/X х/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
GUIDE: PROC; 
FREI=9; 
FOUND=0; 
IF COURSECY8)>0 THEN DO; 
FREI=8; 
HI1BC1)=HBCHOU,1) & (-DCY8,1)); 
D1=C(HI1BC1)=HBCHOU,1)); 
Н1ВС2) =НВСНОО, 2) & (-DCY8,2)2); 
D2=CH1BC2)=HBCHOU, 2)); 
IF D1l&D2 THEN DO; 
I=Y8; 
CALL PROFSUB; 
IF FREI=0]FOUND-=1 THEN DO; 
IF HO=1 THEN HOUR=9; 
IF HO=3 THEN HOUR=10; 
IF HO=5 THEN HOUR=11; 
IF HO=7 THEN HOUR=12; 
HIBC1lJ=HBCHOUR,1) & (-DCY8&,1)); 
Dl1-CHlBC12-HBCHOUR,1)); 
HIBC2)-HBCHOUR,2) & (-D(CY8,2)); 
D2-CH1BC2)2-HBCHOUR, 22); 
IF D1l&D2 THEN DO; 
I=Y8; 
CALL PROFSUB; 
IF FOUND-=1 | FREI=0 THEN DO; 
HOUR=HOU; 
RETURN; 
END; 
IF FREI=1 THEN DO; 
IF COURSECY8)<201 THEN 


HBCHOUR,1)=CHBCHOUR,1) | BI1CCOURSECY8))); 
ELSE HBCHOUR,2)=C(HBCHOUR,2) | B1CCOURSECY8)-200)); 

END; 

HOUR=HOU; 


END; 
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END; 
IF FREI=1 THEN DO; 
IF COURSECY8)<201 THEN 
HBCHOU,1)=CHBCHOU,1) | B1CCOURSECY8))); 
ELSE HBCHOU,2)=CHBCHOU,2) | B1CCOURSECY8&)-200)); 
COURSECY8)z-1XCOURSECY8); 


END; 

END; 
END; 
RETURN; 
END GUIDE; 
/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X PRINT THE HOUR INDICATORS AND NOT SCHEDULED COURSES x 
/X INTO FILE FAIL DATA X/ 
/X SUROUTINE DRUCK x 
/% x 
/X X/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
DRUCK: PROC; 

DCLCWC7),W1,W2 CHAR (1); 

DCLCW3 CHAR (7); 

W3=" ABCDEF'; 


OPEN FILE (DRUCKR) OUTPUT; 
OPEN FILE (CDRUCKP) OUTPUT; 
PUT FILE (DRUCKR) EDIT 


Ы ROOM SCHEDULE FOR FINALS')CSKIP,AC50)); 
PUT FILE (DRUCKP) EDIT 

( ' FACULTY SCHEDULE FOR FINALS')(SKIP,A(50)); 
/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X PRINT THE ACHIEVED ROOM SCHEDULE ж/ 
/X X/ 
/ X X/ 
/X X7 
/X 7 


/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
PUT FILE CDRUCKR) EDIT 
('RODM', 'MÜO 1','MO 2','TU 1','TU 2' ТИЕ ЕНЕРІ 
ТҮН 1", "ТН 28,750 3,7170 5", "МЕ РАР 
CSKIPC2) ,Х(55),А(5),Х53), 


SKIP); 


DO I=1 TO R; 
ROOMP=ROOMNCT)710; 
ROOMP=ROOMNCT)-ROOMPX10; 
ITER=ROOMNCI)710000; 
T1=CROOMNCT)-ITERX10000-ROOMP )/10; 
W1-WCROOMNCI2/10000); 
W2- SUBSTRCHS,ROOMP*1,1); 


PUT FILE (DRUCKR W1,T1,W2, 
CNCABSCTIMER( 
CNCABSC TIMER(C 
CNCABSCTIMER(C 
CNCABSCTIMER(C 
CNCABSCTIMER(C 
CNCABSCTIMER(C 


JE 
I 
I 
I 
I 
I 
CN(ABS(TIMER( І 
І 
I 
I 
I 
A 


I 


IF: 


v 


? 


CNCABSCTIMER(C 
СМСАВЭСТІМЕК( 
CNCABSCTIMER(C 
CNCABSCTIMER(C 
CNCABSCTIMER(C 

(5КІР,Х( 


ж МЕ" Оу [N x нч 
т М М м м -і 
И М мч му му му му му мл мы М М М 


( 
) 
) 
) 
) 
3 


җе кеке = Oona n IP CA» 


Ей?“ ч ч ч ч ч ч WY 9 ч 


) 
( ), ACID), XCGD, 


> 


END; 
IF PRFLAG=0 THEN GOTO PRODRU; 
PUT FILE CDRUCKR) EDIT 


С ROOM SCHEDULE FOR FINALS'*)CSKIPC5),AC50)); 


PUT FILE CDRUCKR) EDIT 


КОО К HOST NO 2',;'TU 1', 'TU 2*', 'WE 1', 


ӘП TH 2', MD 5','1U 3", *WE št, 
(SKIP(2) ,X(3),A(5),X(3), 
X(2),A(6 
Х(2),А( 
Х(2),А( 
O ^t 


OO. Ох Ох О Ох Ох Ох Оз Ох О, 
м М мч ч м мч ч му м w Ne ` 
N ж ж ч N Ns 5 x ч ч 


XC2), „А 
DO I-1 TO R; 

pel FICE (DRUCK 

CTIMERC I 
( TIMER(C I 
(TIMER( I 
(TIMER( I 
(ТІМЕК( T 
CTIMERC I 
(TIMER( I 
(TIMER( I 
I 
I 
I 
I 
) 


SKIP); 
DIT CROOMNCI), 


` ж 


“1” “ “ “ “ “ “ “ “ ` ` ІҢ? wy 


СТІМЕК( 
(ТІМЕКС 
(ТІМЕКС 
(ТІМЕК( 


мк k= н NO Оо OU PS CAT Мм 
Un (Ñ) I. O <, vvv vem 
М2 М М М М МУ М мыл мыл мыл мыл му» 


XC2), FC 
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XC2),FC6), 

Х(2),Е(6), 

Х(2),Р(6), 

X(6),F(6), 

X(2),F(6), 

X(2),F(6), 

X(2),F(6)); 
END; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
Ж PRINT THE ACHIEVED PROFESSOR SCHEDULE x/ 
/X X/ 
/X X/ 
/X X/ 
/X ж/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
PRODRU: 


PUT FILE CDORUCKP) EDIT 
C*PROF!, "MO 1", "МО 2" ТОСО ТИПЕ ЕАС 
ЭТЛТН 18, "ІН 2", "М0 ЗУ ТОЗУ УНЕСУ ИТИИ О 
(SKIP(2) ,X(35),A(5),X(3), 
Х(2),А( 
Х(2),А( 


ON O. O. O. O. Q. OQ. O. O. O. O. O. 


> 
> 
? 
2 
› 
› 
> 
› 
> 
› 
› 
› 
› 


Х(2),А 
DO I-0 TO 675; 
Y1-MODCI,26); 
YY=CSUBSTRCXX, (CI-Y1)726)+1,1))| | (SUBSTR@ Say ei pe 
PUT” FICE (DRUCKP) EDIT YY; 
СМС РТІМЕСІ 
CNC -PIIMECI 
СМС ЕТІМЕСІ 
CNC PTIMECI 
СМС РТІМЕСІ 
СМС РТІМЕСІ 
CHCOPTIMECI 
ChO I PTIHECI 
CNC PIIME(I 
CNC PTEIMECI 
CN( PTIME(I 
CNC PTIMECI 
(SKIP, X(3),A 
Х(2),А(6) 
XC2), 


` ` ` ч ` ` ` 
> > > > > > > > > 
ON O. Q. O. O. Q. O. O. O. O. O. 
М2 М М М2 М М М мыл мыл мыл мү 


END; 
DRUCKR) ; 
DRUCKP); 


иу 


RETURN; 
END DRUCK; 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxxx/ 


Zx IN A NEW TRY, SCHEDULE EARLY FINALS AND FORMER NOT х/ 
/X SCHEDULED COURSES FIRST х/ 
/X х/ 
/ X SUBROUTINE LENK1 х/ 
/X х/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
LENK1: PROC; 
IF PRFLAG=1 THEN 
PUT SKIP LIST C'ENTER LENK1'); 
DO R3=1 ТО 15; 
Y8=BACKCEARLCR3)); 
HOUR=1; 
HOU=1; 
HO=1; 
CALL GUIDE; 
IF FOUND--1 | FREI-~=1 THEN DO; 
Y8= BACKCEARLCR3)); 
HOU=2; 
HO=1; 
HOUR=2; 
CALL GUIDE; 
IF FOUND ~= 1 THEN DO; 
PUT SKIP LIST 
("МОТ SCHEDULED BECAUSE '); 
IF FREI=9 THEN PUT LIST C' ALREADY SCHEDULED'); 
IF FREI*8 THEN PUT LIST C€* CONFLICTS IN FIRST TWO HOURS'); 
IF FREI-0 THEN PUT LIST €C' PROF BUISY IN FIRST TWO HOURS'); 
IF FREI=0 THEN PUT LIST C* PROF BUISY IN FIRST TWO HOURS'); 
IF FREI*1 & FOUND-=1 THEN 
PUT LIST C€' NO SIZE ROOM IN FIRST TWO HOURS'); 
END; 
END; 
END; 
DO HO=1,3,5,7; 
DO UR=0 TO 1; 
HOUR=HO+UR; 
HOU=HOUR; 
DO R3=1 TO RE; 
Y8=BACKCRESTCR3)); 
CALL GUIDE; 


END; 

END; 
END; 
RETURN; 
END LENKI1; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X SUBROUTINE FOR DELETION OF COURSES FROM ROOM SCHEDULE х/ 
/X х/ 
/X X/ 
/X SUBROUTINE LOESCH х/ 
/X X/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
LOESCH: PROC; 
DCL (J ) EIXEDESCSOS 
DO J-1 TO 120; 
IF TIMERCJ,HOURD-COURSECI) THEN TIMER (J,HOUR270; 
END; 


RETURN; 
END LOESCH; 
/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/^X SUBROUTINE FOR DELETION OF COURSES FROM PROF SCHEDULE X 
/X х/ 
/X х/ 
/X SUBROUTINE LOESCHP х/ 
/X ¥/ 


/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
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LOESCHP=: PROC; 
DCL (J D FIXED ОС 
DO J=1 TO 702; 
а IF PTIMECJ,HOUR)=COURSECI) THEN PTIME (J,HOUR)=0; 
END; 


RETURN; 
END LOESCHP; 
/ XXXX XX XXX OOO0000000000000O0OCOOOOOOOOXXX XXX XX XX XXX XX XXX XXX X XX XX/ 


^X SCHEDULING OF NOT SCHEDULED COURSES BY RESCHEDULING х/ 
/ж OF OPPOSING ALREADY SCHEDULED COURSES х/ 
/X ХА 
/ X SUBROUTINE NEIGH: X/ 
/ X х/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
NEIGH: PROC; 
DCLCEC2) )BIT (200); 
DCL (R6(6),R9,RR,R1,R2,R5,R3 FIXED (3); 
DO Rš= 1 TO RE; 
DO R1-1 TO 8; 
RR=1; 
RG=0; 
ЕС12-:НВ(Е1,1) & DC BACKCRESTCR3 
EC2)=HBCR1,2) & DCBACKCRESTCR3 
DO R2=1 TO 200; 
ТЕМР2= ЕС1) & BI1CR2); 
IF TEMP2=B1(R2) THEN DO; 
IF RR<= V2 THEN DO; 
RGCRRI=R2; 
RR=RR+1; 


, 


J)5 1); 
22,02); 


END; 
ELSE DO; 
СОТО 222; 
ЕМр; 
END; 
TEMP2= EC2) & Bl1CR2); 
IF TEMP2-B1CR2) THEN ро; 
IF RR<= V2 THEN DO; 
RGCRRI=R2+200; 
RR-RR*1; 
END; 
ELSE DO; 
GOTO 222; 
END; 
END; 
END; 
RR-RR-1; 
IF CRR-=V2) & (V2 > 1) THEN GOTO ZZ2; 
IF R4(1)=0 THEN DO; 
DOWN=0; 
HOUR=R1; 
I-BACKCRESTCR3)); 
CALL PROFSUB; 
IF FREI=1 &FOUND=1 THEN DO; 
IF PRFLAG=1 THEN 
PUT SKIP LISTCCNCCOURSECI)), HOUR, * NEIGH,FREI'); 
IF COURSECI)S201 
THEN HBCHOUR,1)=CHBCHOUR,1) | BICCOURSECI) 
ELSE HBCHOUR,2)=CHBCHOUR,2) | B1CCOURSECI)-200 
COURSECI)-z-1XCOURSECI); 
GOTO ZZ3; 
END; 


СОТО 222; 
ЕМр; 


w x 


); 
); 
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241 


DO R5=1 TO 4; 


L1=(CINDEXCXX, SUBSTRCFACRESTOR3),R5),1,1))-1)%26) 


*INDEXCXX, SUBSTRCFACRESTCR32,R52,2))-1; 


IF L1<0 THEN GOTO 221; 
IF PTIME (L1,R1)>0 THEN GOTO 222; 


END; 


DO R9=1 TO RR; 
DO HOUR=1 


ТО К1-1,К1+1 ТО 8; 


NEXTONE=R4CR9); 
OLDONE=R1; 
CALL NEIGHI; 
IF FEIN = 1 THEN GOTO ZZ5; 
IF FEIN = 0 THEN GOTO 224; 
ҮЗ=ВАСКСКОСКӘ)); 
COURSECY8 J)=ABSCCOURSECY38)); 
HOU-HOUR; 
HO=HOUR; 
IF MODCHOUR,2) - 0 THEN HO-HOUR-1; 


CALL 


GUIDE; 


IF FREI=1 & FOUND=1 THEN DO; 


HOUR*7RI; 
COURSECY8)=ABSCCOURSECY8)); 
IF PRFLAG=1 THEN 


PUT SKIP LIST 
CCNCCOURSECY8)),HOU, ' NEIGH"); 


CALL LOESCH; 

CALL LOESCHP; 

IF COURSECY8)<201 THEN 

Ins & (- B1(COURSE(Y8)))); 
ELS 


HBCHOUR,2)=CHBCHOUR,2) &(-BICCOURSECY8)-200))); 


HOUR=12; 

IF R1-1 | R1-2 THEN HOUR-9; 

IF R1-3 | R1=4 THEN HOUR = 10; 
IF R1=5 | R1=6 THEN HOUR = 11; 
CALL LOESCH; 

CALL LOESCHP; 


IF COURSE(Y8)<201 THEN 
HB(HOUR,1)=(HB(HOUR,1) & (- B1(COURSE(Y8)))); 
EESE 


HBCHOUR,22) -CHBCHOUR, 2) &C-BICCOURSECY8)2-200))); 


END; 
EESE 


END; 


224: 


END; 
END; 


225: 


HOUR = RI; 


COURSECY8 )=-1*COURSECY8); 


DO; 
COURSECY8)=-1X*COURSECY8); 
IF HOUR=8 THEN DO; 
IF R1=8 THEN GOTO 7235; 
GOTO 222; 
END; 
IF HOUR=8 THEN GOTO ZZ2; 


I=BACKCRESTCR3)); 
COURSECI)=ABSCCOURSECI)); 
CALL PROFSUB; 
IF FREI=1 &FOUND=1 THEN DO; 
IF PRFLAG=1 THEN 
PUT SKIP(2) LIST 
(CN(COURSE(I)),HOUR, ' . SCHEDULED' ); 
IF COURSECI)<201 


THEN 


HBC HOUR, 1 )=(HBCHOUR, 1) | BICCOURSECI))); 
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ELSE HBCHOUR,2)=CHBCHOUR,2) | BICCOURSECI)-200)); 
COURSECT)=-1XCOURSECI); 


GOTO 223; 

END; 
ELSE DO; 
END; 

ZZZ: 

END; 

ZZS.: 

END; 

DOWN = 3; 

RETURN; 

END NEIGH; 


/ XAXXX XXK XK XK KK KK K KKK K K KK KK K K KK KK KK K K KKK KK KK KK KK KXXX XKX XX XKX XX XXXX/ 
/X RESCHEDULING OF COURSES, THAT OPPOSE THE RESCHEDULING */ 


/ Ж OF COURSES,WHICH HAVE TO BE RESCHEDULED IN NEIGH X/ 
/х x^ 
/ Ж SUBROUTINE NEIGHI: X/ 
ZX х/ 


/ XXXXX X XX XOOOOOODOOOO000000000000000OD0DOOOOXX XX XX XX X XXX XXX XXXX XXX/ 
NEIGH1: PROC; 


DCLCEC2) )BIT C200); 
DCL (R4C5),R9,RR,R1L,R2,R5,D1,D2) FIXED (3); 
D1=HOUR; 
D2=Y8; 
FEIN=2; 
R1=HOUR; 
RR=1; 
R4=0; 


ECLJ=HBCR1,1) & DOBACKCNEXTONE),1); 
EC2)=HBCR1,2) & DCBACKCNEXTONE),2); 
DO R2=1 TO 200; 
TEMP2= EC1) & BI1CR2); 
IF TEMP2=B1(R2) THEN DO; 
IF RR<= 5 THEN DO; 
R4CRRI=R2; 
RR=RR+1; 
END; 
ELSE" DO; 
СОТО 2222; 
END; 


END; 
TEMP2= EC2) & BICR2); 
IF TEMP2=B1(R2) THEN DO; 
IF RR<= 5 THEN DO; 
RGCRR)J=R2+200; 
RR=RR+1; 
END; 
ELSE DO; 
GOTO ZZ22; 
END; 


END; 
END; 
RR=RR-1; 
IF R4(1)=0 THEN DO; 
HOUR=R1; 
Y8-BACKCNEXTONE) ; 
COURSECY8)=ABSCCOURSECY8)); 
HOU=HOUR; 
HO=HOUR; 
IF MODCHOUR,2) = O0 THEN HO=HOUR-1; 
CALL GUIDE; 
IF FREI=1 & FOUND=1 THEN DO; 
HOUR=D1; ; 
COURSECY8)=ABSCCOURSECY8)); 
IF PRFLAG=1 THEN 


108 


PUT SKIP LIST 
(CNCCOURSECY8)),HOU, 'NEIGHL,FREI'); 
CALL LOESCH; 
CABESPOESCHE; 
IF COURSECY8)<201 THEN 
HBCHOUR,1)=CHBCHOUR,1) & (= BICCOURSECY8)))); 
ELSE 
HBCHOUR,2)=CHBCHOUR,2) &(-BICCOURSECY8)-200))); 
HOUR=12; 
IF D1-1 | D1-2 THEN HOUR-9; 
IF 01-5 | В1-4 THEN HOUR = 10; 
IF D1-5 | D1l=6 THEN HOUR 11; 
CALL LOESCH; 
CALL LOESCHP; 
IF COURSECY8)<201 THEN 
HBCHOUR,1)=CHBCHOUR,1) & С- BICCOURSECY8)))); 
ELSE 
HB(HOUR,2)=(HB(HOUR,2) &(-B1(COURSE(Y8)-200))); 
COURSE(Y8)=-1xCOURSE(Y8); 
FEIN=1; 
GOTO 27222; 
END; 
END; 


DO R5-1 TO 4; 
LI=CCINDEXCXX, SUBSTRCFACNEXTONE,R5),1,1))-1)*26) 
+INDEXCXX, SUBSTROFACNEXTONE,R5),2))-1; 
ТЕ 11<0 THEN GOTO 7411; 


ДАТІ: 
DO R9=1 TO RR; 
DO HOUR=1 TO R1-1,R1-*1 TO 8; 
Y8-BACKCRa4CR9)); 
COURSECY8)=ABSCCOURSECY8)); 
HOU=HOUR; 
HO=HOUR; 
IF MODCHOUR,2) = 0 THEN HO=HOUR-1; 
CALL GUIDE; 
IF FREI=1 & FOUND=1 THEN DO; 
HOUR=R1; 
COURSECY8 )=ABSCCOURSECY8)); 
IF PRFLAG=1 THEN 
PUT SKIP LIST 
Қы а ыы ы ашады 
-Ү8; 
CALL LOESCH; 
CALL LOESCHP; 
IF COURSECY8)<201 THEN 
HBCHOUR,1)=CHBCHOUR,1) & (C- BICCOURSECY8)))); 
ELSE 
HB(HOUR,2)=(HB(HOUR,2) &(-B1(COURSE(Y8)-200))); 
HOUR=12; 
ІҒ Кісі | R1=2 THEN HOUR=9; 
IF R1=3 | R1=4 THEN HOUR 
IF R1=5 | R1=6 THEN HOUR 
CALL LOESCH; 
CALL LOESCHP; 
IF COURSECY8)<201 THEN 
ta L2 & C= BICCOURSECYS)))); 
HBCHOUR, 22) -CHBCHOUR,2) &C-BICCOURSECY8)-200))); 
COURSECY8)-7-1XCOURSECY8); 
GOTO 2244; 


END; 
ELSE ро; 
COURSECY8)7-1XCOURSECY8); 


= 


10; 
ЕЛ; 
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IF HOUR=8 THEN DO; 


FEIN=0; 
GOTO Z222; 
END; 
END; 
END; 
ZZ66 
END; 

Zice: 

HOUR=D1; 

Ү8=р2; 

RETURN; 


END NEIGHI; 
/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/X INITIATE THE SCHEDULING OF ALL COURSES X/ 
/X X/ 
/X SUBROUTINE PARTIAL ХА 
/X X/ 
/ X Ж/ 


/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
PARTIAL: PROC; 
SINGEL 7-40; 
DG Нб=1,5,5,/; 
DO UR=0 TO 1; 
HOUR=HO+UR; 
HOU=HOUR; 
DO Y8=1 TO F; 
CALL GUIDE; 
END; 
END; 
END; 
RETURN; 
END PARTIAL; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


^X SUBROUTINE TO CHECK FOR FREE PROFESSOR X7 
/X X/ 
X x4 
/ X SUROUTINE PROFSUB X 
Ж ж/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
PROFSUB:PROC; 

DCL (L(G), J1; L19 FIXED(3); 

l=]; 

L1=0; 

DO J=1 TO 4G; 


LCJOSCCINDEXCXX, SUBSTRCFACCOURSECIO, Jod S26? 
+INDEXCXX, SUBSTRCFACCOURSEC!L), JD 3203-8: 
ТЕ ECJOSU THEN DO; 
==; 
GOTO FILL; 
END; 
ELSE DO; 
LI=L1+PTIMECL(J),HOUR); 
END; 
END; 
Ј1=%; 
ЕТЕ: 
IF Ll-=0 THEN DO; 
FREI=0; 
RETURN; 
END; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/ X CALCULATE COURSES WITH MORE THAN ONE SEGMENT х/ 
Z x AND SEVERAL PROFESSORS. х/ 
/X х/ 
/ X Xx/ 
/X х/ 


ZXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


EQ-1; 
IF €J1»12& CCONDCCOURSE(I))=0) THEN DO; 
DO J=2 TO Jl; 
IF LCJ-1)-= L(J) THEN EQ=EQ+1; 
END; 


IF EQ>1 THEN DO; 
NQ-NCCOURSECI2); 
NCCOURSECIOO-NQ/EQ; 
FREI-1; 
DO J-1 TO EQ; 
KBACK=0; 
CALL ROOMSUB ; 
IF (FOUND ~=1) THEN DO; 
NCCOURSECI))=NQ; 
IF Jz1 THEN RETURN; 
CALL LOESCH; 
RETURN; 


END; 
END; 


DO J=1 TO Jl; 
PTIME(L(J),HOUR)=COURSE(I); 


END; 
N(COURSE(I))=NQ; 
FREI=1; 
RETURN; 
END; 
END; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X х/ 
/X х/ 
/X х/ 
/X Ж / 
/ X х/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
KBACK=0; 
FREI=1; 
CALL ROOMSUB ; 
IF CFOUND -=1) THEN RETURN; 
DO J-1 TO Jl; 
PTIMECLCJ),HOURD-COURSECI); 
END; 
RETURN; 


END PROFSUB; 
/ XXXX X XXX X Xxx) OoO0000O0000000000000000000000000000O0O0OOXXX X XXX XXX X X/ 


/ X х/ 
/ж SEMI RANDOM VARIATION OF THE COURSE ARRAY AND THE X/ 
/ X COURSE INDICATORS рсх, ж) X/ 
/X SUBROUTINE SWITCH X/ 
/ X х/ 


/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXx/ 
SWITCH: PROC; 


DCL(M10400),FRAND( 400) ) FIXED (3); 
DCL (M2(400,2) ) BIT (200); 
M1=0; 
M2-'0'B; 


FRAND(C1)-71; 

DO I=2 TO F; 
X=RAND( X); 
ШЕСІ уу ғ; 
FRANDCIO-FRANDCT1); 
FRANDCT12)7I; 


END; 
DO I-1 TO F; 
MICID-ABSCCOURSECFRANDCI2)2); 


IF PRFLAG=1 THEN 
PUT SKIP LIST CI,FRANDCI),M1CI)); 
M2C1I,1)=DCFRANDCI),1); 
M2C1I,2)=DCFRANDCI),2); 
END; 
COURSE=M1 ; 
D=M2; 
END SWITCH; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/X X 
/X SUBROUTINES FOR THE ROOM ASSIGNMENT X/ 
Zx X/ 
/X x 
Zx x 


/ZXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/X SUBROUTINE FOR ROOM ASSIGNMENT х/ 
Zx х/ 
/X CHOOSE THE MODE:WITH OR WITHOUT BUILDING BOUNDS х/ 
/X SUBROUTINE ROOMSUB х/ 
/X х/ 


/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
ROOMSUB: PROC; 
IF DOWN=3 THEN GOTO ALLES; 
IF DOWN=2 THEN DO; 
CALL ROOMSI; 
RETURN; 
END; 
ROOMP-10000; 
ROOME=75000; 
CALL ROOMSI; 


RETURN; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
^X AE0000 COURSES IN x/ 
Zx HALLIGAN HALL х/ 
Zx X/ 
Zx x 
Zx X/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
ДЕГЕЗ 
IF SUBSTRCCNCCOURSECI)),1,2) = "АЕ! 
THEN DO; 
ROOMP=20000; 
ROOME = 30000; 
CALL ROOMSI; 


RETURN; 
END; 
/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X AS0000, c00000, CM0O000, IS0000, MN0O0O00 COURSES IN X/ 
/ X INGERSOL HALL (2) AND THEN х/ 
/ ж INGERSOL HALL (3) х/ 
/ X х/ 
Zx х/ 


/хххххххххххххххххХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ / 


IF (CSUBSTRCCNCCOURSEC(I)),1,2) = 'AS') | 
(SUBST RCCNCCOURSECT)).1,2)) =" "CO? mt 
(SUBSTRCCNCCOURSE(I)),1,2) = "CM') | 
(SUBSTRCCNCCOURSEC(I)),1,2) = 'IS') | 
(SUBSTRCCNCCOURSECIO),1,2) » 'MN') 
THEN DO; 


ROOMP=42000; 

ROOME = 43000; 

CALL ROOMSI; 

IF FOUND = 1 THEN RETURN; 
ROOMP = 43000; 
ROOME-44000; 

CALL ROOMSI; 

RETURN; 
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END; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/ж EE0000 COURSES IN X/ 
/ж BULLARD HALL AND THEN X/ 
Zx SPANNAGEL HALL (2,5,9) X/ 
/X X/ 
/% EWO000 X/ 


/ XXXXXXXXXXXXXXXXXX XX XXXX00000000000000000000000000000C(€X X X XX X/ 
IF CSUBSTRCCNCCOURSECIOD,1,2) - 'EE') | 
USUBSTRCENCCOURSECIOO,1,;2)5 7 'EM') 

THEN DO; 

ROOMP=10000; 

ROOME = 20000; 

CALL ROOMSI; 

IF FOUND = 1 THEN RETURN; 
ROOMP = 72000; 
ROOME=75000; 

CALL ROOMSI; 


RETURN; 

END; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
Zx GHO000 COURSES IN BLD.224 x 
/Á/X - x/ 
⁄ x x/ 
⁄ x XS 
⁄ x x^ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxXxXxXxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
IF SUBSTR(CNCCOURSECI)),1,2) = 'GH! 

THEN DO; 

RoomMP=50000; 
ROOME = 60000; 
CALL ROOMSI; 
RETURN; 

END; 
Á/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxxXxxxxxxxxxx/ 
Zx CS0000, MS0000 COURSES IN SPANNAGEL HALL (2,3,4) x 
/X 5Е0000 ж/ 
⁄ x x/ 
/*X XS 
⁄ x XS 
/Á/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxXxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
IF (SUBSTR(CN(COURSE(I)),1,2) = *CS'!) | 

(SUBSTRCCNCCOURSECI)),1,2) = '"MS') | 

(SUBSTRCCNCCOURSEC(I)),1,2) = 'SE*) 

THEN DO; 

ROOMP=72000; 
ROOME = 75000; 
CALL ROOMSI; 
RETURN; 

END; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXxXXXXXXxXxxXxXxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/ж ME0000 COURSES IN xz 
/X HALLIGAN HALL (2) AND THEN x7 
/ж HALLIGAN HALL (1) х/ 
/ X x/ 
⁄ x x/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
NESGCSUBSTRCCNCCOURSECI22,1,2) = "МЕ!) 
THEN DO; 

ROOMP=22000; 

ROOME = 30000; 

CALL ROOMSI; 

IF FOUND = 1 THEN RETURN; 

ROOMP = 21000; 

ROOME=22000; 

CALL ROOMSI; 

RETURN; 
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END; 
ÁJXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/X MA0000 COURSES IN х/ 
/X INGERSOL. HALL C3) AND THEN x/ 
/X INGERSOL HALL (2) х/ 
/ X х/ 
/X X/ 


/ X XX XX X X X X X X Xx XX Xx x xx xxx x x x xaÀx x o OO00000000000000000OOCOXX X XX XX X XX/ 
IF CSUBSTRCCNCCOURSECI22,1,2) = "МА!) 
THEN DO; 
ROOMP=43000; 
ROOME = 44000; 
CALL ROOMS]; 
IF FOUND = 1 THEN RETURN; 
ROOMP = 41000; 
ROOME=43000; 
CALL ROOMS1; 


RETURN; 
END; 
/ XXXXXXX X X XX X X Xx E K E K K E K JE E JE E K JE E K JE K X HE HE Ж ж ж ж ж ж ж ж ж X ж ж K ж K K HK HEH HEHEHE X X X X X / 
/ж 040000, 050000 ІМ ж/ 
7 INGERSOL HALL (3) AND THEN X/ 
Zx ROOT HALL (2) LEFT SIDE X/ 
К X/ 
Zx 2% 


/ XXX XX XX X XXX XX Xx X K HE HEHE HE DE ж Жж ж ж ж ж ж ж ж ж ж ж ж ж © Ж ж ж © © ж K © © ж ж ж ж Ж ж ж ж Ж ж ж 
IF CSUBSTRCCNCCOURSECIOOS 1; 200 'OA') | 
(SUBSTRCCNCCOURSECIO),1,2) = 105") 

THEN DO; 

ROOMP=43000; 

ROOME = 44000; 

CALL ROOMS1; 

IF FOUND = 1 THEN RETURN; 
ROOMP = 62390; 
ROOME=63000; 

CALL ROOMSI; 


RETURN; 

END; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
7% MROOOO COURSES IN ROOT HALL (2) LEFT SIDE X/ 
/X X/ 
/X ж/ 
/X X/ 
/X ж/ 


A KAKAK K KK K K E E E E K H JE E K JE H JE K K E E E K E E E E IE E K IE K IE K K E H K K K X X X XX X X XX XX XX X/ 
IF SÚUBSIRCCN(COURSECI1));1;2)7=- EMRS 
THEN DO; 
ROOMP=62390; 
ROOME = 63000; 
CALL ROOMSI; 


RETURN; 

END; 
/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/ X NS0000 COURSES IN ROOR HALL MIDDLE PART х/ 
/ X 570000 x 
/X X/ 
/X X/ 
/X х/ 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
IFC SUBSTRCCNCCOURSECI)),1,2) = 'NS*) | 

(SUBSTRCCNCCOURSECIO)O,1,2)9 S255 59 

THEN DO; 


ROOMP=60000; 
ROOME = 62390; 
CALL ROOMSI; 
RETURN; 
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END; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/X 0C0000 COURSES IN ROOT HALL RIGHT SIDE X 
7% x/ 
{X x/ 
/X х/ 
/ X х/ 


/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
IF SUBSTR(CN(COURSE(I)),1,2) = 'OC' 
THEN DO; 
ROOMP=60000; 
ROOME = 62390; 
CALL ROOMS1; 


, RETURN; 

ND; 

/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
/X PHOO00 COURSES IN SPANNAGEL HALL (1) х/ 
/X СС0000 AND THEN SPANNAGEL HALL (2) х/ 
/X х/ 
/X х/ 
/X х/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
NELEESUBSTRCCNCCOURSECI)),1,2) = 'PH' 
CSUBSTRCCNCCOURSE(T)),1,2) = 'CC*) 
THEN DO; 
ROOMP=70000; 
ROOME = 72000; 
CALL ROOMS1; 
IF FOUND = 1 THEN RETURN; 
ROOMP = 72000; 
ROOME=7 3000; 
CALL ROOMSI; 
RETURN; 
END; 
END ROOMSUB; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/ X SUBROUTINE TO LOOK FOR A POSSIBLE FREE ROOM X/ 
/х х/ 
Zx X/ 
Zx X/ 
иж X/ 


/ XXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
ROOMS1: PROC; 
DCL (J,SUM )FIXED; 
FOUND=0; 
J=1; 
DO WHILE CROOMN(CJ)<ROOME) ; 
IF ROOMNCJO«ROOMP THEN GOTO WEITER2; 
IF TIMERCJ,HOUR)~=0 THEN GOTO WEITER2; 
IF HIGHXNCCOURSECI))<PLACES(CJ)&PLACESCJ)>SINGEL 
THEN GOTO WEITER2; 
IF LOWXNCCOURSECI))<PLACESCJ) THEN DO; 
TIMERCJ,HOUR)=COURSECI); 
FOUND=1; 


3UM-PLACESCJ); 
КВАСК=Ј; 
CALL ROOMS2 (J+1,SUM); 
IF FOUND=1 THEN DO; 
TIMERCJ,HOUR) =COURSECI); 
RETURN; 
END; 
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EDLSESDOS 


IF FOUND > 1 THEN 
END; 


END; 
FOUND=0; 
RETURN; 

END ROOMSI; 


JSKBACK-I; 


ÁJXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/ X SUROUTINE TO LOOK FOR A POSSIBLE SECOND ROOM 


х/ 


/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
ROOMS2:PROC (K,SUMD; 


DCL (J,K, SUM 
DO J=K TO R WHILE 


( ROOMN(CJO«-ROOME); 


FIRST-ROOMNCK-1271000; 
SECOND=ROOMN(CJ)71000; 


IF SECOND: 


ЕІК5Т> 0 ТНЕМ DO; 


FOUND=2; 
KBACK=J; 
RETURN; 


END; 


IF TIMERCJ,HOUR)J-~=0 THEN GOTO WEITERS3; 

IF HIGHXNCCOURSECIDO«CPLACESCJO*SUMD &PLACESCJOPSINGEL 
THEN GOTO МЕТТЕР 

IF LOWXNCCOURSECTI))<PLACESCJ)+SUM THEN DO; 


TIMERCJ,HOUR)=COURSECT); 


FOUND=1; 


SUM-SUM*PLACESCJ); 


CALL 


ROOMSS CJ*1,SUMD; 


IF FOUND=1 THEN DO; 


END; 


TIMERCJ,HOUR)=COURSECI); 


RETURN; 


ELSE DO; 
IF FOUND>1 THEN RETURN; 
SUM-SUM-PLACESCJ); 


END; 
END; 
WHEITERS: 
END; 


END ROOMS2; 


/ KXXX XXX X XXX XX X XXX X X XX XXX X XX X X XXX XX XXX XX X X X XX XX X X X X X X X X X X X XX XX X/ 


/ X SOUBROUTINE TO LOOK FOR A POSSIBLE THIRD ROOM 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX7 
ROOMS3:PROC (K,SUM); : 


DCL (J,K, SUM 


DO J=K TO R WHILE CROOMN( JO«-ROOMED; 


/ X IF ABSCROOMNCK-1)-ROOMNCJ))71000> 1 THEN DOX/ 


FIRST=ROOMNCK-1)71000; 
SECOND-ROOMN(CJ2/1000; 


IF SECOND-FIRST> O THEN DO; 
FOUND=3; 
KBACK=J; 
RETURN; 
END; 
IF TIMER(CJ,HOUR)-=0 THEN GOTO HEITERá; 
IF (1.2XHIGHXNCCOURSECIDODO«CPLACESCJO * SUM) 
&CPLACESCJO)»SINGEL) THEN СОТО HEITERá; 
IF 0.95xLOHXNCCOURSECIDO«PLACESCJO*SUM THEN DO; 
TIMERCJ,HOUR? COURSECI); 
FOUND=1; 
RETURN; 
END; 
ELSE DO; ` 
SUM=SUM+PLACESC J); 
CALL ROOMS CJ+1,SUM); 
IF FOUND=1 THEN DO; 
TIMERCJ,HOUR? COURSECI); 
RETURN; 
END; 
ELSE DO; 
IF FOUND>1 THEN RETURN; 
SUM=SUM-PLACESCJ); 
END; 


END 
WEITER: 
END; 
FOUND=0; 
RETURN; 
END ROOMS3; 
/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/ж SUBROUTINE TO LOOK FOR A POSSIBLE FOURTH ROOM x/ 
/ X x 
/ X х/ 
/ x х/ 
/х х/ 


/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
ROOMS4:PROC CK,SUM); 
DCL (J,K, SUM | J)FIXED; 
DO J=K TO R WHILE CROOMN(CJ)<=ROOME); 
^X IF ABSCROOMNCK-1)-ROOMNCJ))71000> 1 THEN DOX/ 
FIRST=ROOMNCK-1)71000; 
SECOND-ROOMN(CJ)2/1000; 
IF SECOND-FIRST> 0 THEN DO; 
FOUND=4; 
KBACK=J; 
RETURN; 
END; 
IF TIMERCJ,HOUR)-=0 THEN GOTO WEITERS; 
IF 1.5* HIGHXNCCOURSECID2O«CPLACESCJ2 * SUM) 
&PLACESCJ)>SINGEL THEN GOTO WEITERS; 
IF 0.9XLOWXNCCOURSECI))<PLACESCJJ+SUM THEN DO; 
TIMERCJ, HOUR)=COURSECI); 


FOUND=1; 
RETURN; 
END; 
WEITERS 
END; 
FOUND=0; 
RETURN; 


END ROOMS4; 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


Zx END OF SUBROUTINES x 
/X x Z 
/X X/ 
/х х/ 
/X X/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
END FINAL; 
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APPENDIX D 
PRIOR PLC: INPUT PREPARATION PROGAM FOR FINAL PLC 


//DIETMAR JOB (0102,0054), 'ANYTHING',CLASS76 
/7*MAIN ORG=NPGVM1.1307P 
4/7 EXEC PLIXCLG 
ZZ ONSEN рр X 
BUILTN: PROC OPTIONS (MAIN); 
SH KH KKK KKH HH HEHE HEHE K HE K HE HE HE HEHE HE E K E HE E HE E HE HE HE HE IE E K E HE HE HE HE HE HE K K R K X X X X X X X X X X / 


/* x/ 
Zx THESIS ROUTINE TO BUILT A NETWORK OF COURSES " x Z 
/ X AUTHOR: F I E GAS ж/ 
7% INSTRUCTOR: K. WOOD X/ 
/ X DATE: 08 APR 1985 X/ 
А/Ж KS 


/ÁXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxxxxxxxxxxxxxxxxxxx/ 
/ÁXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxxxxxxxxxxxxxxxxx/ 


Zx ATENTION: X/ 
/X CROSSL IS ONE COURSE SHORTCTHE LAST ONE) ж/ 
Zx AND x7 
/ X IF THERE IS A COURSE WITH SECTIONS TO NO OTHER NODEXx^/ 
Zx IT IS NOT USED (HOLE IN NUMBERING) x 


/ZXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxXxxxxxxxxxxxxxxxx/ 
/ZXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 


Zx МЛ... OF SECTIONS, CCND. 3 UE-EDURSES x 
их I,;,L,K...COUNTERS, MEMORY,NOW...INTERMEDIAT STORAGE ж/ 
7% x/ 
/ZX x/ 
Zx x/ 


/ XXXXXOOOCOCOOODOCOOODOOOO00000000000000000000ODOOOXXXX XXX XXX XXX X/ 
DCL 
1 MATRIX (6000), 
2 INPUT, 
3 COURSE CHAR (6),7% COLUMN OF COURSE NUMBERS X/ 
š SECT СНАК (4) , 7% COLUMN OF SECTION NUMBERS жх 
> 5N FIXED; 
3 NUMBER FIXED, /XCOLUMN NUMBER OF STUDENTS IN SECTION x^ 
2 С FIXED; /XINTEGER NUMBER CORRESPONDING TO COURSE NUMBER X^ 


DCL CFLAG,N,L,I,K ) FIXED INIT (0); 
DCL (NOW) CHAR(6); 

DCL (DC400,22,B1(C200) ) BIT (2009; 

DCL (HB ) BIT (200) VAR; 


DCL CR0SSL FILE STREAM; 

DCL PRIOR FILE STREAM; 

DCL YBN2 FILE STREAM; 

DCL 1 TRANS (400), 
ZXTRANSLATES LIST OF COURSES ИГИН СПБ UD DI — 
2 CN CHAR (6), 
€ TOTAL FIXED; 

OPEN FILE CCROSSEOCDUTPUT; 

OPEN FILE CPRIOR) OUTPUT; | 

OPEN FILE CYBN2) INPUT; 

J HHH KKK HHH HEHEHE IE K HE K K K K K HE HE IE IE IE IE H © Ж HE HE HE E HE HE E © K HE HE IE K Жж HE K K K x xxx x x x xx xx x/ 


/ X х/ 
/ZX х/ 
Z X x 
/ X х/ 
i x 


/XX/ 

Zx SET ENDFILE CONDITIONXxZ 

/XX/ 

FLAG=0; 

ON ENDFILE CYBN2) FLAG=1; 

/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


ZR x/ 
/х x^ 
/ X х/ 
/ X х/ 
Zx х/ 


/ X READ IN DATA x/ 
/XX/ 
=1; 
NUMBER=0; 
C=0; 
CC1271; 
BICI)s']'; 
D="0O'B; 
НВ-!01В; 
AGAIN: 


BET FILE CYBN2) EDIT 
CCOURSEC1),SECTC1),SNC1),NUMBERC1)) CSKIP,AC6),A04),FC2),FC2));5 
CNC1)=COURSE(C1); 
TOTAL C1) =NUMBER(C1); 
IF INDEXCCOURSE(C1),'0810')=3 THEN GO TO AGAIN; 
DO I-2 TO 4000; 
DISCARD: 
GET FILE (YBN2) EDIT 
(COURSE(I),SECT(I),SN(I),NUMBER(I)) 
CSKIP,AC6),A04),FC2),FC2)); 
IF CFLAG=1) THEN GO TO SCHLUSS; 
/ XX XXXXXOO0O0O0O0OOO0OO0O0000000000000000000000000000000000000000(C(X X / 


Zx X/ 
Zx EVERY QUARTER х/ 
/X X/ 
Zx X/ 
Zx ж/ 


S KAKAK KKK KK K KK K KK K K K K K K K K H K K K H K K K K K K KK K KK KKK K K K KKK KK KKK KXXX XXX 
IF INDEXCCOURSECTI),'0810')=3 THEN GO TO DISCARD; 
IF INDEXCCOURSECI), '0001')=3 THEN GO TO DISCARD; 

S KKK KKK K KKK KIEK K KK K KK KK K KK KK K K K K K K K K K K K K K K K K K K K K KK K K X KX X X X XXX X X/ 


Zx ж/ 
Zx X/ 
/ X ONLY THIS QUARTER X/ 
/х ж/ 
/ж ж/ 


Z XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
IF INDEXCCOURSECI), "EWO002')J=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI),'CS3800')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI),'CS3900')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI),'CS54910')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI),*EE4¢900')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI),'FL')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI),'NSO0030')J=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI),'NS3279')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI),'NS3379')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI), 'NS3772')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI),'NS3773')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI), 'NS3775')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI), °NS3779°)=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI), *NS4¢230')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI),'NS4671')=1 THEN GO TO DISCARD; 


IF INDEXCCOURSECT), 'NS4679')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECT),'NS4771')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI), 'NS4776')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI), *ME4902')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECT),'MR4900')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECT),'PH1012')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI), 'PH4998')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECT),'MN4652')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI),*MA1110')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECT),'MA3002')=1 THEN GO TO DISCARD; 
IF INDEXCCOURSECI), 'MA3237')=1 THEN GO TO DISCARD; 


IF INDEXCCOURSECI),'MA4593')=1 THEN GO TO DISCARD; 
/ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


7x x 
иж Ж/ 
/ж x 
/X END OF TAKING OUT COURSES x 
7X X/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 
IF INDEX CCOURSECI),COURSECI-1))=1 THEN DO; 
TOTALCKJ=TOTALCK)J+NUMBERCI); 
CCI)=K; 
END; 
ELSE DO; 
K=K+1; 
TOTALCK)=NUMBERCI); 
CNCK)=COURSECI); 
C(I)=K; 
PUT FILE CCROSSL) EDIT <K—-L;CN(K T) oO Ck 
CSKIPSFCS3) > Xe 5) A005 N05) Gore 
END; 
END; 
SCHLUSS: М-І-1; 
PUT FILE CCROSSL) EDIT (K,CN(K),TOTAL(K)) 
CSKIP,FC3),X€5),A06),X€5),FC3)); 
CLOSE FILE (CR0O0SSL); 
CLOSE ELLE (YBN2); 
/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/ 


/ X END OF INTEGER-COURSE-NUMBER ROUTINE ж/ 
Zx X 
Ж x 
/ X х/ 
Zx X/ 


/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXX 
DO I=2 TO 200; 


В1(1)=(НВ |} '1'B); 

HB-HB |] '0'B; 
END; 
/ÁZXXXXXXXXXXXXXXXXXxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
/ X x 
/ X х/ 
/ ж х/ 
/ X х/ 
/ X x/ 
/ÁZXXXXXXXXXXXxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx/ 
К=1; 


DO I=l TO N; 
DO J-1 TO I-1, I*1 TO N; 
IF CCINDEXCSECICIO;SECUCUOOS DOES 
(ss t THEN D0; 
1=1; 
IF-CCJO»200 THENNITIS2; 
DCK,I12-D(K,I1D | B1CCCJ2-CCI1-1)2x200)); 
ENDS 
END; 
IF.CCIO-SCCITIOCTHENSKSK EIS 
END; 


DO I-1 TO K-1; 
PUT FILE (PRIOR) EDIT (CI, 
CSKIP,; FC 3) 
END; 


CLOSE FILE CPRIOR); 
END BUILTN; 
//GO.PRIOR DD DSN-:S1307.PRIOR,DISP-z(CSHR,KEEP), 
// NOL=SER=MVS004,UNIT=3350, 
ZZ DCB=CRECFM=FB,LRECL=500,BLKSIZE=5000),SPACE=(CYL,(1,1)) 
//GO.CROSSL DD DSN=S1307.CROSSL,DISP=CSHR,KEEP), 
ZZ NOL=SER=MVS004¢,UNIT=3350, 
/^/ DCB=CRECFM=FB,LRECL=80, BLKSIZE=80),SPACE=(CYL,(1,1)) 
//GO.YBN2 DD x 
АЕ0810АС5401 1 
АЕ0810АС4101 1 
AE0810AC4102 1 
AE0810AC4103 1 
1 
2 


ПОЮ, 20, ТОТА СІ)? 
» Х(2),8В(200),8В(200),Х(52,Ғ(5)); 


AE0810AC4201 
AE0810AC4202 


APPENDIX E 
QUESTIONNAIRE SCREEN 


FACULTY NAME: SMITH MAI LCODE: SM DEPT NUMBER: 39 
COURSE : AX2810 YEAR AND QUARTER: 854 SEGMENT: 1 
ACCELERATED/WEEK1-6 (1) OR REFRESHER/WEEK7-12 COUR GE T 0 
DO YOU NEED SPECIAL STUDENTS IN ONE SEGMENT.........7 N 
ARE THERE OTHER FACULTY TEACHING SOME SEGMENT....... a N 
| TEACH THIS COURSE IN TEAM WITH ANOTHER FACULTY....? N 
*Q...DON'T CARE 1...LIKE TO HAVE * \SPECIAL HOURS?: 200000022 
*2...DON'T LIKE 3...NEED TO HAVE * /SPECIAL  DAYS?: 111020 
THE FINAL IS SCHEDULED..: Y SPLIT LAB IN EQUAL SEGM.: 1 

- DO NOT SCHEDULE AT SAME TIME WITH COURSE (NUMBER)...: 0A4109 
DO SCHEDULE TOGETHER WITH COURSE (NUMBER)...: XX9999 
SCHEDULE BACK TO BACK (1), NOT BACK TO BACK (2)...: 0 
| TEACH IN SPECIAL BLOCKS: LECTURE: . 1 LAB: 2 
NEED MORE/LESS HOURS THAN IN CATALOG: LEC: N LAB: N 


need a special room lect, Ist choice: X9999 2nd choice: Х9999 
lab , 1st choice: I364E 2nd choice: 1119 
there are other constraints, comments: OQ COMMENT 


next course АХ3190 segment 2 


APPENDIX F 
CON FOCEXEC: THE CONSTRAINT QUESTIONNAIRE EXEC 


MODIFY FILE CON 

COMPUTE 

DATEF=TODAY (DATEF); 

TIMEF= HHMMSS (TIMEF); 

NXTCRS/A6=; 

NXTSG/A1=; 

ХМАМЕ/А16=; 

CRTFORM LINE 1 

"ENTER PROF NAME «XNAME " 

"HIT ENTER TO CONTINUE " 

COMPUTE 

PNAME=XNAME; 

MATCH PNAME 

ON NOMATCH GOTO ADDPRF 

ON MATCH CRTFORM LINE 1 

"CURRENT DATA FOR PROFESSOR «D.PNAME» MAILCODE : «T.MC» DEP NUMB:«T.DP»" 
"ENTER COURSE: «NXTCRS»  SEGMENT:«NXTSG» AND YEAR/QUARTER: <YQ>" 
"HIT ENTER TO CONTINUE" 

ON MATCH UPDATE MC DP YQ 

ON MATCH IF NXTCRS EQ ' ' THEN GOTO TYPEM; 

ON MATCH IF NXTCRS EQ '? ' OR NXTSG EQ '?' THEN GOTO HELP1; 
ON MATCH IF NXTSG EQ ' ' THEN GOTO TYPEM; 

ON MATCH GOTO UPDCRS 

CASE TYPEM 

TYPE "YOU FORGOT TO ENTER COURSE OR SEGMENT" 


CASE HELP1 

TYPE "COURSE HAS TO LOOK LIKE 'AX2810'" 

TYPE "SEGMENT HAS TO LOOK LIKE '1' IF THERE IS ONLY ONE SEGMENT" 
ТҮРЕ " OR IT IS THE FIRST,'2' IF IT IS THE SECOND М 


Чез чн ч D «қ, «ә “s “s Gs G G“ G“ G G G“ G“ G G Gs G G G G G G“ G G G G G G G G G G G G G“ G G G “s G“ G G G G G“ G G G G HB G“ G“ G s “s G s. s“. “s “s AR s“ s“ s“ ч з “<s 


CASE UPDCRS 

TYPE “ENTRING CASE UPDCRS" 

COMPUTE 

РМАМЕ-РМАМЕ; 

MC=MC; 

CN=NXTCRS; 

SG=NXTSG; 

MATCH CN SG 

ON NOMATCH GOTO ADDCRS 

ON MATCH COMPUTE 

NXTCRS=' XXXXXX'; 

ON MATCH CRTFORM LINE 1 

"CURRENT DATA FOR PROFESSOR «D.PNAME» MAILCODE : «D.MC» DEP NUMB:«D.DP»" 
"COURSE «D.CN» FOR YEAR AND QTR: <D.YQ> AND SEGMENT: <55<D.SG>IN FILE" 
"ACCELERATED/WEEK1-6 (1) OR REFRESHER/WEEK7-12 COURSE..?«T.ACCEL»" 

"DO YOU NEED SPECIAL STUDENTS IN ONE SEGMENT......... ? «55 «T.SPECSTUD»" 
"ARE THERE OTHER FACULTY TEACHING SOME SEGMENT ? «55 «T.OTHPROF»" 


"| TEACH THIS COURSE IN TEAM WITH ANOTHER FACULTY....2?2«55 «T. TEAM»" 
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"*0. ..DON'T CARE 1... LIKE TO HAVE. = 

"*2...DON'T LIKE 3...NEED TO HAVE * /SPECIAL  DAYS?: <T.SPDAY>" 

"THE FINAL 1S SCHEDULED..:< T.FINAL> SPLIT LAB IN EQUAL SEGM.:<T.SPLIT>" 

"DO NOT SCHEDULE AT SAME TIME WITH COURSE (NUMBER)...:«55 «T.OTHCOURSE»" 

"DO SCHEDULE TOGETHER WITH COURSE (NUMBER)...:«55 «T. TOGCOURSE»" 

"SCHEDULE BACK TO BACK (1), NOT BACK TO BACK (2)...:«55 «T.BACK»" 

"i TEACH IN SPECIAL BLOCKS: LECTURE<47 <T.SPBLOLEC> LAB<55 <T.SPBLOLAB>" 

") NEED MORE/LESS HOURS THAN IN CATALOG: LEC: <47<T.MHRSLEC>LAB: <T. MHRSLAB>" 

"| NEED A SPECIAL ROOM LECT, 1ST CHOICE: «T. RALEC1»  2ND CHOICE: «T. RMLEC2»"' 
LAB , 1ST CHOICE: «T. RHLAB1» 2ND CHOICE: <T. RMLAB2>" 

"THERE ARE OTHER CONSTRAINTS, COMMENTS:  «T.COMMENT1»'' 

" «T. COMMENT2»" 

"CT. COMMENT3»" 


\ SPECIAL HOURS?: <T.SPHOURS>" 


"NEXT COURSE <T.NXTCRS SEGMENT <NXTSG> " 


ON MATCH UPDATE SPNAME 

ON MATCH UPDATE  MAILC 

ON MATCH UPDATE DEPT 

ON MATCH UPDATE YRQTR 

ON MATCH UPDATE  DATEF 

ON MATCH UPDATE TIMEF 

ON MATCH UPDATE SPECSTUD 
ON MATCH UPDATE  TOGCOURSE 
ON MATCH UPDATE ACCEL 

ON MATCH UPDATE SPLIT 

ON MATCH UPDATE BACK 

ON MATCH UPDATE  OTHPROF 
ON MATCH UPDATE TEAM 

ON MATCH UPDATE  SPHOURS 
ON MATCH UPDATE  SPDAY 

ON MATCH UPDATE  SPBLOLEC 
ON MATCH UPDATE SPBLOLAB 
ON MATCH UPDATE FINAL 

ON MATCH UPDATE OTHCOURSE 
ON MATCH UPDATE RMLEC1 

ON MATCH UPDATE RMLEC2 

ON MATCH UPDATE  RMLAB1 

ON MATCH UPDATE RMLAB2 

ON MATCH UPDATE  MHRSLEC 
ON MATCH UPDATE  MHRSLAB 
ON MATCH UPDATE COMMENT1 
ON MATCH UPDATE  COMMENT2 
ON MATCH UPDATE COMMENT3 
ON MATCH IF NXTCRS=' XXXXXX' THEN GOTO TOP; 


ON MATCH GOTO UPDCRS 

ENDCASE 

CASE ADDCRS 

TYPE "ENTERING CASE ADDCRS " 


COMPUTE 
vos aT 
COURSE=' Xx9999'; 
0Р='99'; 


SEGMENT='1'; 
SPECSTUD='N'; 
OTHPROF='N'; 
TEAM='N'; 

SPHOURS=' 000000000' ; 
SPDAY-'000000'; 
SPBLOLEC='1'; 
SPBLOLAB='1'; 
FINAL=! Y' ; 
OTHCOURSE-'XX9999' ; 
TOGCOURSE-' XX9999' ; 
ACCEIS QUE 
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SPLIT='1'; 

BACK='0'; 

RMLEC1='X9990'; 

RMLEC2='X9990'; 

RMLAB1='X9990'; 

RMLAB2='X9990'; 

MHRSLEC='N'; 

MHRSLAB='N'; 

COMMENT1='0 COMMENT' ; 
РМАМЕ-РМАМЕ; 
CN=NXTCRS; 
SG=NXTSG; 
NXTCRS='YYYYYY'; 
MATCH CN SG 
ON MATCH REJECT 
ON NOMATCH CRTFORM LINE 2 
"ADDING DATA COURSE: <T.CN> YEAR AND QUARTER: <T.YQ>, SEGMENT: <T. SG>" 
NACCELERATED/WEEK1-6 (1) OR REFRESHER/WEEK7-12 COURSE. .?<T.ACCEL>" 
"DO YOU NEED SPECIAL STUDENTS IN ONE SEGMENT......... 2 <55 <Т.5РЕС5ТУО>" 
"ARE THERE OTHER FACULTY TEACHING SOME SEGMENT....... ? «55 «T.OTHPROF»" 
"| TEACH THIS COURSE IN TEAM WITH ANOTHER FACULTY....?«55 «T. TEAM»" 
"*9...DON'T CARE 1...LIKE TO HAVE * \SPECIAL HOURS?: <T.SPHOURS>" 
"*2...DON'T LIKE 3...NEED TO HAVE * /SPECIAL ODAYS?: <T.SPDAY>" 
"THE FINAL IS SCHEDULED..:« T.FINAL» SPLIT LAB IN EQUAL SEGM.: «T. SPLIT»" 


"DO NOT SCHEDULE AT SAME TIME WITH COURSE (NUMBER)...:<55 <T.OTHCOURSE>" 
"DO SCHEDULE TOGETHER WITH COURSE (NUMBER)...:<55 <T. TOGCOURSE>" 
"SCHEDULE BACK TO BACK (1), NOT BACK TO BACK (2)...:<55 <T.BACK>" 


"| TEACH IN SPECIAL BLOCKS: LECTURE <&7<T.SPBLOLEC> LAB<55 <T. SPBLOLAB>" 
"| NEED MORE/LESS HOURS THAN IN CATALOG: LEC: <47<T. MHRSLEC>LAB: <T.MHRSLAB>" 
"| NEED A SPECIAL ROOM LECT, 1ST CHOICE: <T.RMLEC1> 2ND CHOICE: <T. RMLEC2>" 
М (АВ , 1ST CHOICE: «T. RHLAB1» 2ND CHOICE: <T. RMLAB2>" 
"THERE ARE OTHER CONSTRAINTS, COMMENTS:  «T.COMMENT1»" 

"XT. COMMENT2»" 

"XT. COMMENT3»" 

"NEXT COURSE «T.NXTCRS SEGMENT <NXTSG> " 

ON NOMATCH INCLUDE 

ON NOMATCH IF NXTCRS EQ 'vYvYvvYvY' GOTO TOP; 

ON NOMATCH GOTO UPDCRS 


CASE ADDPRF 

TYPE "ENTRING CASEADDPRF" 

COMPUTE 
SPNAME=' XXXXXXXX' 3 
MAILC='WX'; 
DEPT='00'; 
YRQTR='813'; 
COURSE='Xx9999'; 
SEGMENT='1'; 
SPECSTUD='N'; 
OTHPROF='N'; 
TEAM='N'; 
SPHOURS='000000000' ; 
SPDAY='000000'; 
SPBLOLEC='1': 
SPBLOLAB='1'; 
FINAL='Y'; 
OTHCOURSE=' Xx9999'; 
TOGCOURSE=' Xx9999'; 


ACCEL='0"; 
SPLIT="1'; 
BACK='0'; 


RMLEC1='x9990'; 
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RMLEC2='X9990'; 
RMLAB1='X9990'; 
RMLAB2=' X9990'; 
MHRSLEC='N'; 
MHRSLAB='N'; 
COMMENT1="0 COMMENT'; 
NXTCRS=' XXXXXX'; 
РМАМЕ-РМАМЕ; 
МАТСН РМАМЕ 
ON MATCH REJECT 
ON NOMATCH CRTFORM LINE 1 
"FACULTY NAME: <T.PNAME> MAILCODE: <T.MC> DEPT NUMBER: <T.DP>" 
"COURSE : <T.CN> YEAR AND QUARTER: <T.YQ>, SEGMENT<55<T.SG>" 
"ACCELERATED/WEEK1-6 (1) OR REFRESHER/WEEK7-12 COURSE. .?<T.ACCEL>" 


"DO YOU NEED SPECIAL STUDENTS IN ONE SEGMENT......... 2? «55 «T.SPECSTUD»" 
"ARE THERE OTHER FACULTY TEACHING SOME SEGMENT....... 2 <55 <Т.ОТНРКОҒ>" 
"| TEACH THIS COURSE IN TEAM WITH ANOTHER FACULTY....2?<55 <T.TEAM>" 


"*Q...DON'T CARE  1...LIKE TO HAVE * VXSPECIAL HOURS?: «T.SPHOURS»'" 
"*2...DON'T LIKE 3...NEED TO HAVE * /SPECIAL DAYS?: <T.SPDAY>" 
"THE FINAL IS SCHEDULED..:« T.FINAL» SPLIT LAB IN EQUAL SEGM. : «T. SPLIT» 


"DO NOT SCHEDULE AT SAME TIME WITH COURSE (NUMBER)...:<55 <T.OTHCOURSE>" 
"DO SCHEDULE TOGETHER WITH COURSE (NUMBER)...:«55 «T. TOGCOURSE»" 
"SCHEDULE BACK TO BACK (1), NOT BACK TO BACK (2)...:<55 <T.BACK>" 


"| TEACH !N SPECIAL BLOCKS: LECTURE: <47<T. SPBLOLEC>LAB: <55 <T. SPBLOLAB>" 
"| NEED MORE/LESS HOURS THAN IN CATALOG: LEC: <47<T.MHRSLEC>LAB: <T.MHRSLAB>" 
"| NEED A SPECIAL ROOM LECT, 1ST CHOICE: «T. RMLEC1»  2ND CHOICE: «T. RMLEC2»" 
и LAB , 1ST CHOICE:<T.RMLAB1> 2ND CHOICE: <T.RMLAB2>" 
"THERE ARE OTHER CONSTRAINTS, COMMENTS: <T.COMMENT1>" 

"XT. COMMENT2»" 

"CT. COMMENT3»" 

"NEXT COURSE <T.NXTCRS SEGMENT «NXTSG» " 

ON NOMATCH INCLUDE 

ON NOMATCH IF NXTCRS EQ 'XXXXXX' THEN GOTO TOP ELSE GOTO UPDCRS; 

ENDCASE 


DATA VIA F13270 
END 
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APPENDIX G 
USER'S MANUAL FOR THE CONSTRAINT QUESTIONNAIRE 


The Constraint Questionnaire 


This questionnaire program was written to support the computer data 
base about the scheduling process. 

Among all the constraints faculty members express, the most 
common ones were collected and put together into a easy to handle 
program. This manual should help the user in filling out the ques- 
tions. 

Questions concerning this manual should be directed to the sche- 


duler's office. 
How to Start and Stop 


You will be supplied with programs running and supporting the ques- 
tionnaire. They will reside on your disk as will the output of your 
work. To start, log on as usual. Then, type FOCUS (ENTER) and 
wait until you are in the program. You will know that you are there as 
soon as you see the words: | 
ENTER PROF NAME and 

INIM ENTER TO CONTINUE. 


There are several reasons to stop. Two kinds are discussed here: 
T. Emergency Stop 

When you don't know what to do anymore and you want 
desperately to get out of the program do the following: 
Keep the ALT key down and hit the '1'(this combination is the 
PF1 key). 
As soon as there is no action on the screen anymore type FIN 
(ЕМФ ЕНШ 
This should do the job. 
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If really nothing helps press down the ALT key and hit the 
PA1 key. You will see CP. Respond with I CMS (ENTER) and 
after you see some action on the screen type LOG (ENTER). 
This will do it for sure. 

Regular stop | 

You finished what you wanted to do and you want to stop now. 
Hit the ENTER key where ever you are in the program right 
now. The words 'ENTER PROF NAME' will appear on top of 
the screen. 

This time you enter END (ENTER) at this place and you are 
out of the program. Now type FIN (ENTER) and you are out 
of FOCUS. 


Report Results 


When you are ready with all your entries for this particular quarter 


and you want to report the results to the scheduler do the following: 
Type SF while in CMS. This brings up a Send File Exec. The file you 
want to send is CON FOCUS A, send it to the schedulers user ID. 


On request, you will be supplied with programs enableing 


you to get printouts of your input data. 


Description of the Individual Questions 


ВЕ 


PROF NAME Write the last name and the initials of the first 
names 

MAILCODE Write the two letters assigned to each faculty 
member. 

DEPT NUMBER Write the department number of the faculty 
member 

COURSE Enter the course number like 'AS1234' without blanks. 
YEAR AND QUARTER Enter academic year and quarter like 
'853' meaning academic year 85, quarter 3. 

SEGMENT You have to enter a segment number. If there is 
only one segment enter a '1'. If there is more than one segment 


you will have to answer a whole screen for each segment 
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10. 


I. 


2. 


13. 


14. 


although it might be taught by the same professor. Just keep 
numbering them in a successive fashion. 

ACCELERATED If the course is a accelerated course or a 
refresher course then indicate it here. 

1...Course during first 6 weeks 
2...Course during second 6 weeks. 

PARTIC. STUDENTS This question is related to the one before. 
Answer with a 'Y' or 'N'. If there is more than one segment 
and particular students should be together in one segment :'Y'. 
If this is not the case:'N'. 

OTHER FACULTY If there are several segments and one or 
more other faculty members are teaching the same course but 
another segment in this quarter, answer 'Y'. Otherwise answer 

ШАЙЫ 
TEAM TEACH If the course is taught by more than one 
teacher at the same time (and the same segment) then answer 
'Y'. Otherwise 'N'. 

SPLIT LAB If for a course the lab part has to be held in 
several segments then input the number of lab segments. 
Default is 1; if the course is taught in several segments 
anyway, then an entry other than 1 wil be treated as splitting 
every segment in equal parts. 

TOGETHER COURSE Indicate the course number if there is a 
course to be scheduled together with this course (same time, 
same room). 

BACK-TO-BACK If you would like to have your courses back- 
to-back (1) or not back-to-back (2) with the other courses you 
are teaching then indicate accordingly. 

SPECIAL HOURS If this faculty member has any constraints 
about teaching at particular hours of the day, here is the place 
to write them down: The field consists of 9 entries, each 
representing one academic hour of the day. The first entry 
repre- sents the first hour, the second entry the second hour 
etc. If there is no constraint there should be a '0' in this 


place. Otherwise put the following: 
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15. 


16. 


P 


18. 


19; 


20. 


l...means,he/she likes to teach at this hour 

2...means,he/she does not like to teach at this hour 
3...means,he/she needs to teach at this hour 

Now fill the field with the appropriate number in the position 
of the hour wanted. 

SPECIAL DAY The same codes apply here as for the previous 
one. Now the 6 entries represent the days of the week, 
starting with Monday and going through Saturday. 

CONFLICT If there is a course the faculty member wants to 
take for credit, (or something similar) you should indicate it 
here by putting the number of this course into the field. 
Otherwise leave it as it is.(Don't put in the second or third 
course this prof is teaching; it is taken care of automatically) 
SPECIAL BLOCK If the course is not taught 1 hour at a time, 
indicate here how many hours there should be in a row by 
putting in the number wanted. (if there is no lab or no lecture 
in this course, that's OK. Just leave the '1' in this field) 
MORE/LESS HOURS It might be the case that there have to be 
more or less hours in this course than indicated in the current 
NPS catalog. Write down this number. (do this only if 
different from catalog. ) 

SPECIAL ROOM If a particular room is really needed, put in 
the room number and if possible a second choice. If NO room 
is needed, indicate by filling the whole field with zeros like 
'0000'. Otherwise leave the default: 'X999'. 

OTHER CONSTRAINTS If there are constraints not covered by 
the questions before, or you have to say something in addition, 


do this in this three lines. 
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APPENDIX H 
CON TABLE MASTER: FOCUS MASTER OF USED CONSTRAINT DATA 


FILE=ALLREP ,SURFIX-FIX 


SEGNAME-ALLREP 


FIELDNAME -COURSE ,Е01 ,А6 ‚А08 ,% 
FIELDNAME =SEGMENT ,E02 ,А1 »A04 , Š 
FIELDNAME =TEAM , E 053 ,А1 ‚Аба ,% 
FIELDNAME =MAILC » E04 ,A2 , A06 5 
FIELDNAME =SPECSTUD »E05 ,А1 »A04 , Š 
FIELDNAME =OTHPROF » E06 ,А1 ,A06 , Š 
FIELDNAME =SPHOURS »E07 »A9 ,Al2 ,% 
FIELDNAME =SPDAY »E08 ‚Аб ‚ А08 , $ 
FIELDNAME =FINAL , Е09 ,А1 ,A06 ,% 
FIELDNAME =BACK ,Е10 ,А1 ,А04 ,% 
FIELDNAME =SPLIT ,E11 ,А1 »A04 ,% 
FIELDNAME =ACCEL ZEIZ ,А1 »A04 8 
FIELDNAME -TOGCOURSE ЙЕІ 5 ,A6 ,A08 , Š 
FIELDNAME =OTHCOURSE ,Е14 ,А6 ,А08 , $ 
FIELDNAME =SPBLOLEC ,E15 ,Al »A04 , Š 
FIELDNAME =SPBLOLAB ‚ Е16 ,Al ,А04 , Š 
FIELDNAME =MHRSLEC »El7 ,А1 ,А04 ,% 
FIELDNAME =MHRSLAB »E18 ,А1 ,А06 ,% 
FIELDNAME -RMLECI ,E19 »A5 ,A08 , Š 
FIELDNAME =RMLEC2 »E20 ,А5 ,А08 , Š 
FIELDNAME -RMLABI ;c2l »A5 ,A08 , Š 
FIELDNAME =RMLAB2 »E22 »A5 ,A08 ,% 
FIELDNAME =СОММЕМТ 1 ‚Е25 »A30 ,А52 ,% 
FIELDNAME =COMMENT2 » E24 ,A72 ,A72 ,% 
FIELDNAME =COMMENT3 > Е25 ,A72 ,A72 , Š 
FIELDNAME =PNAME , Е26 ,А16 ,Al6 ,% 
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APPENDIX I 


EXERPT FROM THE CURRENTLY USED PRIORITY SETTING 


Listed in order of priority: 


1. 


O OC -з с GQ i Ç b 


Dr 
I2. 


13. 
14. 
15. 
16. 


Scheduling department and special meetings for professors, 
curriculum seminars for students, and Superintendent's 
lectures. 

Refresher courses. 

Special request for courses at required time. 

Special requests for required times and days from professors. 
Large courses. 

Courses being taught by Chairmen and Deans. 

Two courses that must be schedule at the same time. 
Accelerated courses. 

Courses with two or more segments requiring only designated 
students to be placed in one segment. 

Courses requiring special rooms. 

Courses requiring three lab hours. 

Courses that use the same lab rooms and cannot conflict in 
time. 

Courses with a large diversity of majors. 

Professors with three or more classes or team teaching. 
Professors traveling from long distances. 


Regular courses. 
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APPENDIX J 


EXAMPLE ILP, FORMULATION AND RESULT 


> 


MIN XA1 + XA2 + XA3 + 200 XAK + 400 ХА6 + 200 XAT + ХС1 
+ XC2 + XC3 + 200 XC4H& + 400 ХСб + 200 XC7 + 200 XB1 + 2 XB2 
* XB3 + ХВ + XB6 + XB7 + 200 XD1 + 2 XD2 + XD3 + XD4K + XD6 
+ XD7 + YA2 + 5 YA3 + YAu + YA6 * 5 YAT + ҮВ1 + YB3 + YB& 
+ ҮВб + 25 YB7 + YC1 + YC3 + YCR + YC6 + 60 YC7 + YD1 
+ 45 YD4 + 90 YD6 + 180 YD7 + YE2 + YE3 + YE6 + YF1 + YF2 
+ 20 YF3 + 10 YF4 + YF6 + YG3 + 15 YGH + 30 YG6 + 60 YG7 
+ YH2 + YH3 + YH6 + 30 YH7 + 110 YI1 + 55 YI2 + YI3 + YI6 
* 55 YI7 + ҮЈ1 + ҮЈ2 + 80 ҮЈЗ + 40 YJ4 + ҮЈб + YK2 + 15 YK3 
+ ҮКЦ + ҮКб * 15 YK7 * YL2 + 10 YL3 + YL + YL6 + 10 YL7 
+ YM1 + YM3 + 4O YM4& + YM6 + YN2 * YNh + 70 YN6 + 180 YNT7 
+ YO2 + 10 YO3 + 10 YO& + YO7 
SUBJECT TO 
000) ХА2 + ХАЗ + ХАД + ХАб + ХАТ = 1 
001) ХС2 + ХСЗ + ХСД + ХСб + ХСТ7 = 1 
002) XB1 + XB2 + XB3 + XB6 + XB7 = 1 
003) XD1 + XD2 + XD3 + XD6 + XD7 = 1 
004) YA2 + YA3 + YAX + YA6 + YAT = 1 
005) YB1 + YB3 + YB& + YB6 + YB7 = 1 
006) YC1 + YC3 + ҮСД + ҮСб + ҮС7 = 1 
007) YD1 + YD4& + YD6 + YD7 = 1 
008 ) YE2 + YE3 + YE6 = 1 
009) YF1 + YF2 + YF3 + YF + YF6 = 1 
010) YG3 + YG& + YG6 + YG7 = 
011) YH2 + YH3 + YH6 + YH7 = 1 _ 
012) Y11 + Y12 + Y13 + YI6 + YI7 = 1 
013) YJ1 + YJ2 + YJ3 + YUH + YI6 = 1 
014) YK2 + YK3 + YK& + YK6 + ҮКТ7 = 1 
015) YL2 + YL3 + YL4 + YL6 + YLT = 1 
016) YM1 + YM3 + YM& + YM6 = 1 
017) YN2 + YNG + YN6 + YN7 = 1 
018) YO2 + YO3 + YOu + YO7 = 1 
019) ХА1 + ХС1 <= 1 
020) ХА2 + ХС2 <= 1 
021) XA3 + ХСЗ <= 1 
022) XA4 + XC4 <= 1 
023) XA6 + XC6 <= 1 
024) XA7 + XC7 <= 1 
025) XB1 + XD1 <= 1 
026) XB2 + XD2 <= 1 
027) XB3 + XD3 <= 1 
028) XB4 + XD4 <= 1 
029) XB6 + XD6 <= 1 
030) XB7 + XD7 <= 1 
031) ХА1 = 0 
032) XB4 = 0 
033) ХС1 = 0 
034) XD4 = 0 
035) - 17 ХА1 - 17 ХС1 - 17 ХВ1 - 17 ХО1 “5 ҮВ1 -* 12 ҮСІ 
+ 9 YD1 + YF1 + 11 YI1 + 4 YJ1 + 8 YM1 >= 
036) - 21 XA1 - 21 XC1 - 21 XB1 - 21 XD1 + 5 Y81 + 12 YC1 
+ 9 YD1 + YF1 + 11 YI1 + & YJ1 + 8 YMI <= 0 
037) - 17 XA2 - 17 XC2 - 17 XB2 - 17 + YA2 + YE2 + YF2 
+ 6 YH2 + 11 YI2 + & YJ2 * 3 YK2 + 2 + 7 YN2 + 2 YO2 
038) - 21 XA2 - 21 XC2 - 21 XB2 - 21 + YA2 + YE2 + YF2 
+ 6 YH2 + 11 YI2 + & YJ2 + 3 YK2 + 2 + 7 YN2 + 2 YO2 
039) - 17 XA3 - 17 XC3 - 17 XB3 - 17 + YA3 + 5 YB3 


TS ZerGoet YES + YF3 + 3 
+ 3 YK3 + 2 YL3 + 8 YM3 + 2 Y03 >= 


ОЗОН ® 31-Y13 + & YJ3 
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<= 


040) - 21 ХАЗ - 21 XC3 - 21 XB3 - 21 XD3 + YA3 + 5 YB3 
+ 12 YC3 + YE3 + YF3 + 3 YG3 + G YH3 t lily l op ere 
+ 3 YK3 + 2 YL3 + 8 YM3 t 2 n YO = 0 


041) - 17 ХА, - 17 XCh - 17 XBh - 17 XDH + YAN + 5 YB4 
+ 12 YCh * 9 YDh * YFh * 3 YGh * h YJh + 3 YKH + 2 ҮЩ 
+ 8 YMh * 7 YNÀA + 2 YOK >= 0 

O42) - 21 ХАҢ - 21 XCh - 21 XBH - 21 XD4H + YAN * 5 YBh 
+ 12 YCH + 9 YDh * YFh * 3 YGh * h YJh + 3 YKH + 2 ҮЩ 
+ 8 YM4 + 7 YNH + 2 YO <= 0 

043) ~ 17 XA6 - 17 XC6 - 17 XB6 - 17 XD6 % ҮА6 % 5 ҮВ6 


* 12 YC6 * 9 YD6 + YE6 * YFG t 3 YGG 5 о УНОСИ ЛЕ 
+ Д YJ6 * 3 YK6 * 2 YL6 * 8 ҮМ6 * 7 YN6 »- 0 
O44) - 21 XA6 - 21 XC6 - 21 XB6 - 21 XD6 + YA6 + 5 YB6 
+ 12 YC6 + 9 YD6 + YEG * YF6 + 3 YG6 + 6 YH6 + 11 YIG 
+ Д ҮЈб + 3 YK6 + 2 YL6 + 8 YM6 + 7 YN6 <= 0 
045) - 17 ХАТ - 17 ХСТ - 17 ХВ7 - 17 ХО7 + YAT * 5 YBT7 
% 12 ҮСТ + 9 ҮрТ + 3 ҮСТ * 6 YH? fel x17 ӘЗ ҮКТ ала E) 
+ 7 YN7 + 2 YOT >= 0 
O46) - 21 XA7 - 21 XC7 - 21 XB7 - 21 XD7 * YAT * 5 YB7 
+ 12 YC7 * 9 YD7 * 3 YG? 6 ҮНПТТІТГТТІПГГӘЗ КГ ы 
+ 7 YN7 + 2 YO7 <= 0 
END 
INTEGER-VARIABLES= 91 


LP OPTIMUM FOUND AT STEP 56 


ENUMERATION COMPLETE. BRANCHES= 17 РІУОТ5- 462 
LAST INTEGER SOLUTION IS THE BEST FOUND 


RE-INSTALLING BEST SOLUTION... 
OBJECTIVE FUNCTION VALUE 


108.000000 
VARIABLE VALUE REDUCED COST 
XA2 1.000000 1.000000 
XC3 1.000000 1.000000 
XB6 1.000000 1.000000 
XD3 1.000000 1.000000 
YA6 1.000000 1.000000 
YB3 1.000000 1.000000 
YC3 1.000000 1.000000 
YD6 1.000000 90.000000 
YE2 1.000000 1.000000 
YF2 1.000000 1.000000 
YG3 1.000000 1.000000 
YH3 1.000000 1.000000 
YI6 1.000000 1.000000 
YJ2 1.000000 1.000000 
YK2 1.000000 1.000000 
YL2 1.000000 1.000000 
YM3 1.000000 1.000000 
YN2 1.000000 1.000000 
YO2 1.000000 1.000000 
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